с Информатикой В 10-десятичной системе - вопрос №1018527959 от Daney213 23.05.2020 15:25

Question

Информатика: с Информатикой В 10-десятичной системе

Daney213 · Answer

На паскале, если не на паскале нужно, то укажите какой необходим.

const m = 5;
n = 4;
var i, j, max: integer;
a: array[1..m, 1..n] of integer;
begin
  writeln('Исходный массив: ');
  for i := 1 to m do begin
    for j := 1 to n do begin
    a[i, j] := random(20);
    write(a[i, j]:3);
    if(a[i, j] > max) then max := a[i, j];
    end;
    writeln;
  end;
  writeln('Максимальный элемента: ', max);
  writeln('Конечный массив: ');
  for i := 1 to m do begin
    for j := 1 to n do begin
    if(a[i, j] mod 2 = 0) then a[i, j] := max;
    write(a[i, j]:3);
    end;
    writeln;
  end;
end.