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

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

не извини не могу времени нет

пока

Ок...

Удачи!

Programe pp;

var a,b,c:integer;

begin

writeln('введите количество чисел');

read(a);

c:=0

for a=0 do begin

a:=a-1;

writeln('введите число');

read(b);

if b>0 then

c:=c+b

else

Writeln('положительное число')

end;

writeln(c);

end.