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

Решение задач на компьютере (стр. 77-76)
68. На блок-схеме представлен алгоритм ввода массива из 10 целых чисел с помощью цикла с предусловием. Запишите соответствующую программу на языке паскаль.
program tt;
var
a: array [1..10] of integer;
i: integer;
begin
i := 1;
while i < = 10 do begin real(a[i]); i := i + 1 end; end.

Для ввода 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.