1. Составьте программу вывода матрицы:

1 1 1 1

2 2 2 2

3 3 3 3

2. Составьте программу вывода матрицы:

1 2 3 4

1 2 3 4

1 2 3 4

Var

i, j:integer;

begin

for i:=1 to 3 do

begin for j:=1 to 4 do Write (i:2) ; Writeln end

end.

Результат выполнения программы:

1 1 1 1

2 2 2 2

3 3 3 3

var

i, j:integer;

begin

for i:=1 to 3 do

begin for j:=1 to 4 do Write (j:2) ; Writeln end

end.

Результат выполнения программы:

1 2 3 4

1 2 3 4

1 2 3 4

Программы отличаются ровно одним символом - именем переменной в обращении к процедуре вывода: Write (i:2) ; и Write (j:2) ;

{Задача 1}

type Mat = arrsay [1 ... 3, 1 ... 4] of integer;

var i: integer;

A: Mas;

begin

for i:=1 to 3 do

begin

for j:=1 to 4 do

Write (i:4) ;

WriteLn;

end;

ReadLn;

end.

{Задача 2}

type Mat = arrsay [1 ... 3, 1 ... 4] of integer;

var i:integer;

A: Mas;

begin

for i:=1 to 3 do

begin

for j:=1 to 4 do

Write (j:4) ;

WriteLn;

end;

ReadLn;

end.