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

Держи 1 и 3 ;) :

1)

Program solution;Uses Crt;Var i, poloz, otrits, zero : Byte;n : integer;BeginClrScr;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;BeginClrScr;sum := 0;count := 0;while sum <= 100 do        begin        write(': ');        readln(num);        sum := sum + num;        count := count + 1;        end;writeln('Было введено чисел: ', count);ReadKey;End.