Программа запрашивает у пользователя количество чисел, которое он будет вводить с клавиатуры. После этого пользователь вводит числа,а компьютер находит среднее арифметическое только для положительных чисел
какая программа
щчс напишу
щас циклы проходите
ну под ходит
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.
ты где был когда лекции были
помогу
я в 7 всё понимаю
не извини не могу времени нет
пока