Составить блок схему Составить блок-схему алгоритма и программу. Найти максимальный элемент для каждого столбца матриц размерностью NxN.
для этой программы
program matrica;
Uses Crt;
const
m=1000;
var
a: array[1..m, 1..m] of integer;
i,j:byte;
mn,n:integer;
begin
write('n=');
read(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(11);
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);
writeln; end;
for j:=1 to n do begin
mn:=a[1,j];
for i:=1 to n do
if a[i,j] mn:=a[i,j]; end;
writeln('min ',i,'stlb=',mn);
end;
end.
