Дан двумерный массив. Найти максимальный элемент и проверить, сколько раз он встречается в каждой строке.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
