Question

Составьте, пожалуйста, на Паскале программы. Дам 50 баллов!!! 1. Вывести на экран матрицу 5х5. Определить сумму минимальных элементов столбцов матрицы. 2. Сформировать матрицу вида:1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1​

Answer 1

const

 n=5;

var

 a:array [1..n,1..n] of integer;

 i,j,min,sum:integer;

begin

 sum:=0;

 for j:=1 to n do

   begin

     min:=20;

     for i:=1 to n do

       begin

         a[i,j]:=random(21)-10;

         if min>a[i,j] then

           min:=a[i,j];

       end;

     sum:=sum+min;

   end;

 for i:=1 to n do

   begin

     for j:=1 to n do

       write(a[i,j]:4);

     writeln;

   end;

 writeln('sum min:',sum);

 min:=1;

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         a[i,j]:=min;

         if min = 1 then

           min:=0

             else

               min:=1;

         write(a[i,j]:4);

       end;

     writeln;

   end;

end.

Если моё решение помогло вам, отметьте его лучшим. Спасибо!

Answer 2

Конкретный код на языке Паскаль:

1. Вывести на экран матрицу 5х5 и определить сумму минимальных элементов столбцов матрицы: ``` program Matrix; const n = 5; var matrix: array[1..n, 1..n] of integer; column_min: array[1..n] of integer; i, j, min, sum: integer; begin randomize; // Заполнение матрицы случайными значениями for i := 1 to n do begin for j := 1 to n do begin matrix[i, j] := random(10); // случайное значение от 0 до 9 write(matrix[i, j], ' '); end; writeln; end;

// Определение минимальных элементов столбцов и их суммы for j := 1 to n do begin min := matrix[1, j]; for i := 2 to n do begin if matrix[i,j] < min then min := matrix[i,j]; end; column_min[j] := min; sum := sum + min; end;

writeln('Сумма минимальных элементов столбцов матрицы:', sum); end. ```

2. Сформировать матрицу вида: 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1: ``` program Matrix; const n = 5; var matrix: array[1..n, 1..n] of integer; i, j: integer; begin // Формирование матрицы for i := 1 to n do begin for j := 1 to n do begin if (i + j) mod 2 = 0 then matrix[i, j] := 1 else matrix[i, j] := 0; write(matrix[i, j], ' '); end; writeln; end; end. ```

Оба примера написаны на языке программирования Паскаль и выполняются исходя из заданных условий. Первая программа выводит на экран матрицу 5х5 и определяет сумму минимальных элементов столбцов матрицы. Вторая программа формирует и выводит на экран матрицу с определенным образцом значений.