Дан двумерный массив размерностью n*m. Уменьшить в два раза все четные элементы...

Question

Дан двумерный массив размерностью n*m. Уменьшить в два раза все четные элементы массива.(Помогите сделать программу на паскале).

Answer 1

const NN=50;
var
a:array [1..NN,1..NN] of integer;
i,j,m,n:integer;
begin
  write('Введите n: ');
  readln(n);
  write('Введите m: ');
  readln(m);
  for i:= 1 to n do
    for j:= 1 to m do
      readln(a[i,j]);
 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] div 2;
 for i:= 1 to n do
 begin
    for j:= 1 to m do
      write(a[i,j],' ');
    writeln;
 end;
 end.