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

Question

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

Answer 1

Var
N, i: integer;
x: real;
t: boolean;

begin
readln(N);
i := 0;
repeat
i := i + 1;
Readln(x);
until (x < 0.001) or (i = N);
t := x > 0.001;
writeln(t)
end.

Comments

А можешь через for написать?

---

А смысл?

---

Через for придётся использовать оператор break. Здесь же цикл завершается, как только вводится нулевой элемент (т.к. вещественный тип представлен в компьютере приближенно, мы сравниваем не с нулём, а с 0.001 (это число может задать сам пользователь)). Ну а так могу через for написать, но решение будет неэффективное.

---

Напишите пожалуйста))

---

В лс