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

Question

Информатика

Эма

13 марта, 06:46

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

+2

Ответы (1)

Знаешь ответ?

Юна · 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.