Матрицы найти максимальный элемент матрицы 16 2 8 9 14 27 (м 6) необходимо решение и блок-схема

152

315

Посмотреть ответы 2

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

Zagyart

Информатика

4,5(80 оценок)

Program max_element_massiva ; var i, n, max : integer ; a : array [1..100] of integer; begin writeln('введите количество элементов массива') ; readln(n) ; randomize; for i : = 1 to n do begin a[i] : = random(100); write(a[i]); end; max : = a[1]; for i : = 2 to n do if a[i]> max then max : = a[i]; writeln('максимальный элемент массива = ',max) ; readln ; end.