Склавиатуры вводится 7 чисел программа; должна найти количество всех положительных чисел и посчитать суммы отрицательных
dmolodozhnikovp02gx5
2
17.05.2019 15:30
1
Другие вопросы по теме Информатика
ilia39loh
10.03.2019 01:40
Raadzhab
18.05.2020 12:21
SokhraNNaya
18.05.2020 12:21
lol1046
20.10.2020 00:10
елен9
08.02.2022 02:27
hooh232non666
15.09.2019 05:20
Malina235
15.09.2019 05:20
rezistol228
15.09.2019 05:20
соня13101
15.09.2019 05:20
Популярные вопросы
- Y=3x^2-2x0=2написать уравнение касательной...
3 - Княгиня трубецккая до и после замужества...
2 - Запишите допустимые значения переменной: а/а+9а/b-7 быстрее...
3 - Use the words from the box and complete the sentences. volunteer, provide, notorious,...
1 - Y=3x^2-2, x0=2найти значение производной функции...
1 - Нарисовать график функцииf(x)=-3/x p(-1; 3)...
3 - Мистер фокс написал на стене все пятизначные числа, сумма цифр которых равна...
1 - Жидкость плотностью 10^3 кг/м^3 протекает в цилиндрической трубке диаметром...
1 - Расставьте скобки так, чтобы равенства стали верными 800 - 10 *100 - 20=0...
1 - F(x)=1/2 x^2-8x+9y=-2x+3найти координаты точки касания...
3
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.