Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

{Задача 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.