1. Нахождение наибольшего элемента главной диагонали. (Паскаль, двумерные массивы )

2. Нахождение наименьших элементов в столбцах массива. (Паскаль, двумерные массивы )

1

Ответы и объяснения

2013-04-21T18:23:13+04:00

1) var a:array[1..100,1..100]of integer;i,j,n,max:integer;

begin

readln(n);

for i:=1 to n do

for j:=1 to n do

readln(a[i,j]);max:=a[n,1];

for i:=1 to n do

for j:=1 to n do

if (i=j)and(a[i,j]>max) then max:=a[i,j];

writeln(max);

end.