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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.