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.

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