Дана последовательность из N вещественных чисел. Переменной t присвоить значение true,...

Question

Дана последовательность из N вещественных чисел. Переменной t присвоить значение true, если в последовательности нет нулевых элементов. Написать программу для Pascal ABC и блок-схему. Студенческий уровень.

Answer 1

Var
  N, i: integer;
  x: array [1..1000] of real;
  t: boolean;

begin
  readln(N);
  i := 0;
  t := true;
  repeat
    i := i + 1;
    Readln(x[i]);
    if x[i] < 0.001 then t := false;
  until (x[i] < 0.001) or (i = N);
  writeln(t)
end.