1) Подсчитать произведение и количество всех неотрицательных чисел из 10 не целых чисел, введенных пользовател

var f,s:float; c,i:integer;
begin
 s:=1;
 for i:=1 to 10 do begin
  readln(f); if f>-1 then begin s:=s*f; inc(c); end;
 end;
 write('Количество:',c:10,'Произведение:',s:10:2); readln;
end.

  Read(f); if f>=0 ...

var i, n,x: integer;
 sum: real;
begin
 write('n = '); readln(n);
 write('x = '); readln(x);
 sum := n;
 for i := x to n do
   begin
     
     sum := sum +(n-x)
   end;
 writeln('среднее арифметическое = ', (sum/n):8:5);
 writeln('5 = ', (sum):8:5);
end.

var a,b,i,n,sum: integer;
begin
repeat
writeln('Введите диапазон, целые числа a<b');
readln(a,b);
until a<b;
if b<1 then write('Положительных чисел нет')
else
 begin
  n:=0;
  sum:=0;
  for i:=a to b do
  if i>0 then
   begin
    n:=n+1;
    sum:=sum+i;
   end;
  writeln('среднее арифметическое = ', (sum/n):0:2);
 end;
end.

var a, b, t, s: Real; n, k: Integer;
begin
  Write('Диапазон (a b), количество чисел n: '); Read(a,b,n);
  if a<0 then a:=0; {k:=0;}
  for n:=1 to n do begin
    Read(t);
    if (t>a) and (t<b) then begin
      Inc(k); s:=s+t;
    end;
  end;
  if k>0 then WriteLn('Ср.арифм. положительных: ',s/k)
  else WriteLn('Нет положительных из диапазона');
end.