1000001110+1100110 подскажите как решать, .

Question

Информатика: 1000001110+1100110 подскажите как решать, .

alena679 · Accepted Answer

Program pr;
var
arr: array[1..5] of array[1..5] of integer;
max, nmax: integer;
begin
randomize;

{Формирование массива}
for var i := 1 to 5 do
    for var j := 1 to 5 do
      arr[i][j] := random(20) - 10;

{Показ массива}
for var i := 1 to 5 do
    for var j := 1 to 5 do
      write(arr[i][j], ' ');
writeln();

{Поиск максимального элемента}
max := arr[1][1];
for var i := 1 to 5 do
    for var j := 1 to 5 do
      if (max <= arr[i][j]) then max := arr[i][j];

{Подсчет максимальных элементов}
nmax := 0;
for var i := 1 to 5 do
    for var j := 1 to 5 do
      if (arr[i][j] = max) then nmax := nmax + 1;

writeln('Максимальный элемент: ', max);
writeln('Количество таких элементов: ', nmax);
end.

MOGZ ответил