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

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

Для ввода 10 целых чисел используется массив $$a[1..10]$$ и счётчик $$i$$, который изменяется от $$1$$ до $$10$$. В цикле с предусловием последовательно вводим элементы массива.

program tt;
var
  a: array [1..10] of integer;
  i: integer;
begin
  i := 1;
  while i <= 10 do
  begin
    readln(a[i]);
    i := i + 1;
  end;
end.

Ответ

program tt;
var
  a: array [1..10] of integer;
  i: integer;
begin
  i := 1;
  while i <= 10 do
  begin
    readln(a[i]);
    i := i + 1;
  end;
end.