54

Дан двумерный массив. Найти максимальный элемент и проверить, сколько раз он…

14 апреля 2023

Дан двумерный массив. Найти максимальный элемент и проверить, сколько раз он встречается в каждойстроке.

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

40

uses crt; var a: array[1… 100, 1… 100] of integer; i,j,m,n,max,kol: integer; begin writeln ('Введите размер массива'); readln (m,n); for i: =1 to m do begin for j: =1 to n do begin writeln ('Введите элементы массива ' ,i,'x',j); readln (a[i,j]); end; end; for i: =1 to m do begin for j: =1 to n do begin if a[i,j]>max then max: =a[i,j]; end; end; for i: =1 to m do begin for j: =1 to n do begin if a[i,j]=max then inc (kol); end; end; writeln ('max=',max,', встречается ',kol,' raz.'); end.

Знаете ответ?

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