створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 10, а кожне наступне більше від попереднього на задане додатне число. ( язык

 Задача нелогичная, получается, что он должен обучиться 5 операциям (4 действия и числа), на все эо дано 3 месяца. 

1. Пусть за 1й мес он выучит числа - то есть 1 операцию.

2. За 2й мес он выучит + или -, то есть 1 операцию.

3. За 3й мес он выучит или -, или *, или : ЛИБО или +, или *, или : - то есть 1 операцию.

Всего за 3 месяца он может выучит 3 операции из желаемых 5 независимо от того, в какой последовательности он будет осваивать их.

ответ: не успеет, ему необходимо 5 месяцев либо увеличить количество операций, изучаемыз в месяц.

Как-то так я думаю

Держи 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.