Задание:
1. Нахождение наибольшего элемента главной диагонали. (Паскаль, двумерные массивы) 2. Нахождение наименьших элементов в столбцахмассива. (Паскаль, двумерные массивы)
Решение:
1) var a: array[1… 100,1… 100]of integer; i,j,n,max: integer; beginreadln (n); for i: =1 to n dofor j: =1 to n doreadln (a[i,j]); max: =a[n,1]; for i: =1 to n dofor j: =1 to n doif (i=j) and (a[i,j]>max) then max: =a[i,j]; writeln (max); end.
Знаете другой ответ?