Ввести 7 чисел и посчитать количество чисел больше 0, и сумму чисел меньше или равных 0.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
