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.
На рабочем столе размещаются небольшие картинки - значки, обеспечивающие быстрый доступ к объектам - различным устройствам и программам компьютера, а также текстам, рисункам и другим документам. Значок компьютера обеспечивает доступ к различным устройствам компьютера. В корзину отправляется «мусор» - всё то, что уже не нужно хранить в памяти компьютера. Как правило, в нижней части рабочего стола располагается панель задач. На ней размещается кнопка пуск. Кроме того, на панели задач отображается в виде кнопки каждая работающая программа, панель задач с кнопкой пуск, ярлыки.
Объяснение:
