Найти максимальных элемент в массиве размерностью…

Question

Найти максимальных элемент в массиве размерностью М*Т. М и N вводятся с клавиатуры. (Паскаль)

Answer 1

65

karelin

20 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: