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.