Question

Составьте программу, задающую переменный массив D из 9 целых чисел, заполненный кубами индексов элементов массива и выводящую номер элемента и его значение в строчку через запятую. Pascal ABC

Answer 1

program n

;var i: integer;

D: array[1..9] of integer;

begin

for i := 1 to 9 do D[i] := random(0,9);

writeln(D);

end.

Answer 2

Вот пример программы на языке PascalABC, которая создает массив D из 9 целых чисел, заполненный кубами индексов элементов массива, и выводит номер элемента и его значение в строку через запятую:

program ArrayExample;
var
  D: array[1..9] of Integer;
  i: Integer;
begin
  for i := 1 to 9 do
  begin
    D[i] := i * i * i;
    writeln(i, ',', D[i]);
  end;
end.

В этой программе мы объявляем массив D с размерностью от 1 до 9 и переменную i для итерации по элементам массива. Затем мы используем цикл for для заполнения массива D кубами индексов элементов и выводим номер элемента и его значение с помощью процедуры writeln.

Например, при выполнении этой программы вы увидите следующий вывод:

1,1
2,8
3,27
4,64
5,125
6,216
7,343
8,512
9,729

Каждая строка представляет собой номер элемента массива, за которым следует его значение, разделенные запятой.

Примечание: Программа была составлена на основе информации из источников и