Задание:
Найти максимальных элемент в массиве размерностью М*Т. М и N вводятся с клавиатуры. (Паскаль)
Решение:
var A: array [1… 100, 1… 100] of integer; max,i,j,m,n: integer; beginrandomize; writeln ('Введите размеры массива MxN: '); readln (m,n); for i: =1 to m do for j: =1 to n do A[i,j]: =random (101); writeln ('Массив: '); for i: =1 to m do begin for j: =1 to n do write (A[i,j]: 4); writeln; end; max: =A[1,1]; for i: =1 to m do for j: =1 to n do if max < A[i,j] then max: =A[i,j]; writeln ('Максимальный элемент=',max); end.
Знаете другой ответ?