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

program tt;
var
a: array [1..10] of integer;
i: integer;
begin
i := 1;
repeat
read(a[i]);
i := i + 1
until i > 10;
end.

Алгоритм на блок-схеме вводит 10 целых чисел в массив с помощью цикла с постусловием repeat … until. Сначала задаём начальное значение счётчика $$i=1$$, затем последовательно вводим элементы массива $$a[i]$$ и увеличиваем счётчик на 1. Цикл заканчивается, когда $$i>10$$.

program tt;
var
  a: array [1..10] of integer;
  i: integer;
begin
  i := 1;
  repeat
    read(a[i]);
    i := i + 1
  until i > 10;
end.

Ответ

program tt;
var
  a: array [1..10] of integer;
  i: integer;
begin
  i := 1;
  repeat
    read(a[i]);
    i := i + 1
  until i > 10;
end.