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

program Z_68;
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.

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

Соответствующая программа на языке Паскаль:

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

Ответ

Программа на языке Паскаль:

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