Question

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

Answer 1

Вот программа:
var a: array [1..10] of integer;
 i:integer;
begin
i:=1;
while i<=10 do
 begin
  write('a[',i,']=');
  readln(a[i]);
  i:=i+1;
 end;
end.