Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.
Опять похожая задача у тебя) Держи решение:
const m=?; {Вместо "?" нужно вписать любое число}
Var s:real;
Begin
s:=0;
for i:=2 to m do
if sin(i)<0 then s:=s+sin(i);
writeln(s);
End.