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

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

Для ввода 10 целых чисел по блок-схеме нужен цикл с постусловием repeat … until. Сначала счётчик i получает значение 1, затем поочерёдно вводятся элементы массива a[i], после каждого ввода значение i увеличивается на 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.