Размещено 5 лет назад по предмету
Информатика
от Adilet02082000
) На обработку поступает последовательность из четырёх целых чисел. Нужно написать программу,
которая выводит на экран количество неотрицательных чисел последовательности и их
произведение. Если неотрицательных чисел нет, требуется вывести на экран «NO». Известно, что
вводимые числа по абсолютной величине не превышают 10. Программист написал программу
неправильно, надо найти ошибку
var p,i,x,count: integer;
begin
count := 0;
p := 0;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(х);
writeln(p);
end
else
writeln('NO')
end