В двумерном массиве числа, кратные n, заменить частными от деления на n. Написать программу на паскале.помогите пожалуйста
Answers & Comments
koteraspa
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.
Answers & Comments
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.