Упр.3.70 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)

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

По блок-схеме сначала задаётся начальное значение переменной $$i = 1$$, затем в цикле с постусловием последовательно вводятся элементы массива $$a[1], a[2], \dots, a[10]$$. После каждого ввода индекс увеличивается на 1. Цикл заканчивается, когда $$i > 10$$.

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

Ответ

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