Паскаль. Вводится 3 числа, лежащих от - 100 до 100. Найти их сумму и количество отрицательных.

Question

Информатика

Салтан

22 марта, 15:35

Паскаль. Вводится 3 числа, лежащих от - 100 до 100. Найти их сумму и количество отрицательных.

+4

Ответы (1)

Знаете ответ на вопрос?

Феонилла · Answer 1

Var

a, f, s, i:longint;

begin

for i:=1 to 3 do

begin

readln (a) ;

inc (s, a) ;

if (a<0) then inc (f) ;

end;

writeln (s) ;

writeln (f) ;

end.