Дана последовательность из N вещественных чисел. Переменной t присвоить значение true, если в последовательности нет нулевых элементов. Написать программу для Pascal ABC и блок-схему. Студенческий уровень.
More Questions From This User See All
Answers & Comments
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.