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.

Answer 2

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

program CubeArrayExample;

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

begin
  // Заполнение массива кубами индексов
  for i := 1 to 9 do
    D[i] := i * i * i;

// Вывод номера элемента и его значения через запятую
  for i := 1 to 9 do
    writeln(i, ',', D[i]);
end.

Эта программа создает массив D с индексами от 1 до 9 и заполняет его кубами соответствующих индексов. Затем она выводит номер элемента и его значение в одну строку через запятую.