Question

Дана последовательность из n (n>1) вещественных чисел. Определить, являются ли все числа последовательности одного знака. Если да, то вывести их сумму, иначе сообщение.

Answer 1

var n,i:integer; a,c:real; b:boolean;
begin
b:=true; write('n: '); readln(n); writeln('Enter ',n,' numbers');
read(c); for i:=2 to n do begin read(a); if a*c<0 then b:=false; c:=a end;
writeln(b); readln; readln
end.