Question

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

Answer 1

Ответ:

program test;

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

i: integer;

begin

for i := 1 to 9 do

begin  

D[i] := i*i*i;

if i <> 9 then write (i,' - ',D[i],', ') else write (i,' - ',D[i])

end

end.