Question

В двумерном массиве числа, кратные n, заменить частными от деления на n. Написать программу на паскале.помогите пожалуйста

Answer 1

var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]);
for i:=1 to n dofor j:=1 to n doif a[i,j] mod n =0 then a[i,j]:=a[i,j] div n; 
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.