На паскале, если не на паскале нужно, то укажите какой необходим.
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.
Создание документа
CTRL+N
Открытие документа
CTRL+O
Закрытие документа
CTRL+W
Разделение окна документа
ALT+CTRL+S
Сохранение документа
CTRL+S
Завершение работы с Word
ALT+F4
Поиск текста, форматирования и специальных элементов
CTRL+F
Повтор поиска
ALT+CTRL+Y
Замена текста, форматирования и специальных элементов
CTRL+H
Переход к странице, закладке, сноске, таблице, примечанию, рисунку и т. п.
CTRL+G
Возврат к странице, закладке, сноске, таблице, примечанию, рисунку и т. п.
ALT+CTRL+Z
Прокрутка документа
ALT+CTRL+HOME
Прерывание действия
ESC
Отмена действия
CTRL+Z
Повтор действия
CTRL+Y
В режим разметки
ALT+CTRL+P
В режим структуры
ALT+CTRL+O
В обычный режим
ALT+CTRL+N
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.