ДАЮ 100 БАЛЛОВ, ПОМОГИТЕ ПОЖАЛУЙСТА!!! ​

Question

ДАЮ 100 БАЛЛОВ, ПОМОГИТЕ ПОЖАЛУЙСТА!!! ​

---

Answer 1

Ответ:Var a:array[1..100,1..100] of integer;

m,n,i,j:integer;

begin

read(m,n);

for i:=1 to m do

for j:=1 to n do

a[i,j]:=j*5;

for i:=1 to m do begin writeln;

for j:=1 to n do

write(a[i,j]:4);

end;

end.

Объяснение:Надеюсь помог!