program z1;
const n=3; m=4;
var i,j,x:integer;
mas:array [1..n, 1..m] of integer;
begin
x:=5;
for i:=1 to n do
for j:=1 to m do
begin
mas[i,j]:=sqr(x);
x:=x+1
end;
for i:=1 to n do
begin
for j:=1 to m do write (mas [i,j]:5);
writeln
end
end.
Объяснение:
Убрали лишнюю ; в строке: for j:=1 to m do;
Добавили составной оператор (begin - end) после этой строки
Изменили строку x:=x+11; на x:=x+1
Изменили форматированный вывод write (mas [i,j],' '); на write (mas [i,j]:5); - так ровнее будет
Добавили в конце end.
Если всё делать в 1 цикле:
program z1;
const n=3; m=4;
var i,j,x:integer;
mas:array [1..n, 1..m] of integer;
begin
x:=5;
for i:=1 to n do
begin
for j:=1 to m do
begin
mas[i,j]:=sqr(x);
write (mas [i,j]:5);
x:=x+1
end;
writeln
end
end.
