Ввести 7 чисел и посчитать количество чисел больше 0, и сумму чисел меньше или равных 0.

Question

Информатика

Ростиславка

29 июня, 15:54

Ввести 7 чисел и посчитать количество чисел больше 0, и сумму чисел меньше или равных 0.

+5

Ответы (2)

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

Вика · Answer 1

var

s, n, i, a:integer;

begin

For i:=1 to 7 do begin

readln (a) ;

if a>0 then

n:=n+1

else

s:=s+a;

end;

writeln ('polozitelnih=', n, ' summa otrizatelnih=', s) ;

end.

Лаврушка · Answer 2

var

c, summ:real;

count, i:integer;

begin

count : = 0;

summ : = 0;

for i : = 1 to 7 do

begin

write ('Введите число ') ;

readln (c) ;

if c > 0 then

count : = count + 1

else

summ : = summ + c;

end;

writeln ('Количество числел больших 0 равно ', count) ;

writeln ('Сумма чисел меньших либо равных 0 равна ', summ) ;

end.