Программирование. Pascal. Задача с циклом. Задача 1. Пользователь вводит 10 целых чисел. Посчитать, сколько из них положительных, отрицательных и нулей. Задача 2. Вводятся целые числа, ввод заканчивается 0. Посчитать, количество и произведение тех из них, которые > 0 и 100. Вывести, сколько чисел введено.

Держи 1 и 3;) :

1)

Program solution;

Uses Crt;

Var i, poloz, otrits, zero : Byte;

n : integer;

Begin

ClrScr;

poloz : = 0;

otrits : = 0;

zero : = 0;

for i : = 1 to 10 do

begin

readln (n) ;

if n > 0 then poloz : = poloz + 1;

if n < 0 then otrits : = otrits + 1;

if n = 0 then zero : = zero + 1;

end;

write ('+: ', poloz, ', - : ', otrits, ', 0: ', zero) ;

ReadKey;

End.

3:

Program solution;

Uses Crt;

Var sum, num, count : Word;

Begin

ClrScr;

sum : = 0;

count : = 0;

while sum < = 100 do

begin

write (': ') ;

readln (num) ;

sum : = sum + num;

count : = count + 1;

end;

writeln ('Было введено чисел: ', count) ;

ReadKey;

End.