81

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

moros13 10 марта 2023

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

категория: информатика

65

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.

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

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...