Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.