Упр.69 ГДЗ Рабочая тетрадь Босова 9 класс (Информатика)

program tt;
var
a: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do
read(a[i])
end.

По блок-схеме нужно ввести 10 целых чисел в массив. Для этого объявим массив a из 10 элементов и переменную-счётчик i. Затем организуем цикл с параметром от 1 до 10 и в каждой итерации будем считывать очередной элемент массива.

program tt;
var
  a: array [1..10] of integer;
  i: integer;
begin
  for i := 1 to 10 do
    read(a[i]);
end.

Ответ

program tt;
var
  a: array [1..10] of integer;
  i: integer;
begin
  for i := 1 to 10 do
    read(a[i]);
end.