Паскаль. Вводится 3 числа, лежащих от -100 до 100. Найти их сумму и количество отрицательных.
Паскаль. Вводится 3 числа, лежащих от -100 до 100. Найти их сумму и количество отрицательных.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы