На блок-схеме представлен алгоритм ввода массива из 10 целых чисел с помощью цикла с постусловием

---

---

Задание 70. На блок-схеме представлен алгоритм ввода массива из 10 целых чисел с помощью цикла с постусловием. Запишите соответствующую программу на языке Паскаль.

---

Программа на ЯП Паскаль:
Program zad_70_nica;
var
i: integer;
a: array[1..10] of integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.

P.S. Если вы хотите проверить программу на правильную работу, вы можете добавить этот код в тело программы
for i:=1 to 10 do write ('a[', i, ']=', a[i], '; ')
и вам выведется введённый вами массив.