(65 баллов) (Pascal)
Заполнить двумерный массив N[5,7] случайными числами из диапазона от -5 до 5. Вывести матрицу на экран в прямоугольном виде. Найти минимальный элемент в каждом столбце матрицы. Вывести эти значения в отдельной строке.

Ответ:

Var i, j, min:Integer ;

N:array [1..10,1..10]of Integer ;

Begin

For i:=1 to 5 do begin

For j:=1 to 7 do begin

N[i, j]:=random(11)-5;

Write(' ', N[i, j]) ;

End;writeln ;end;

Min:=6;writeln;

For j:=1 to 7 do begin

For i:=1 to 5 do begin

If(n[i,j]<min) then min:=n[i, j] ;

End;write(' ', min) ;min:=6;end;

End.

Ответ:

var n:array [1..5,1..7] of integer;

i,j,m:integer;

begin

writeln('Массив: ');

for i:=1 to 5 do

begin

for j:=1 to 7 do

begin

n[i,j]:=random(11)-5;

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

end;

writeln

end;

writeln;

for j:=1 to 7 do

begin

m:=6;

for i:=1 to 5 do if n[i,j]<m then m:=n[i,j];

write(m:4);

end

end.