В двумерном массиве нечетные элементы увеличить на 10,а остальные уменьшить на 10

В двумерном массиве нечетные элементы увеличить на 10,а остальные уменьшить на 10
Гость
Ответ(ы) на вопрос:
Гость
const n=4; m=5;  var a:array[1..n,1..m] of integer; i,j:integer;  begin Randomize; writeln('Исходный массив:'); for i:=1 to n do  begin  for j:=1 to m do  begin  a[i,j]:=random(51);  write(a[i,j]:4);  end; writeln; end; writeln; for i:=1 to n do   for j:=1 to m do  if a[i,j] mod 2 <> 0   then a[i,j]:=a[i,j]+10 else a[i,j]:=a[i,j]-10; writeln('Измененный массив:'); for i:=1 to n do begin  for j:=1 to m do write(a[i,j]:4);  writeln; end; end. Пример: Исходный массив:  7 49 39 28 43 27 26 10 25 20 34 0 1 0 24 18 36 42 21 39 Измененный массив: 17 59 49 18 53 37 16 0 35 10 24 -10 11 -10 14  8 26 32 31 49
Не нашли ответ?
Ответить на вопрос
Похожие вопросы