А. Создайте программу, которая заполняет массив 5 × 9 числами по следующему правилу: •...

Question

А. Создайте программу, которая заполняет массив 5 × 9 числами по следующему правилу:
• элементы, расположенные в первом столбце, равны 1;
• элементы, расположенные во втором столбце, равны 2;
• …
• элементы, расположенные в девятом столбце, равны 9.
Б. Выведите созданный массив на экран:
Пожалуйста ответ запишите в Турбо паскале версия 7.0

Answer 1

Uses Crt;
var
   a:array[1..5,1..9] of byte;
   i,j:byte;
begin
   ClrScr;
   for i:=1 to 5 do begin
      for j:=1 to 9 do begin
         a[i,j]:=j;
         Write(a[i,j]:2)
         end;
      Writeln
      end;
   ReadKey
end.

Результат
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9
 1 2 3 4 5 6 7 8 9