ТутРешу.Ру

1. Нахождение наибольшего элемента главной диагонали

Задание:

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.




Знаете другой ответ?

Отправить свой ответ