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.
Транслятор — программа или техническое средство, выполняющее трансляцию программы
трансляторы разделяются на три основные группы: ассемблеры, компиляторы и интерпретаторы.
4. гибкость, расширяемость, простота синтаксиса.
5. комплекс программных средств, используемый программистами для разработки программного обеспечения.
6. Печатает текстовый файл при использовании других команд MS-DOS.