Сформировать двумерный массив А(5,4). Всем четным элементам полученного массива присвоить значение максимального элемента данного массива.
Answers & Comments
Hasl1337
На паскале, если не на паскале нужно, то укажите какой необходим.
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.
Answers & Comments
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.