Задачі для самостійного розв'язання.
. Обчислити суму та добуток парних чисел від 1 до N. Для перевірки на
комп'ютері не варто вводити числа більші за 19 (результат не помісти
тип int).
Обчислити кількість чисел степенів 2 (1,2, 4, 8, 16, ...), які менші за вве
Число N.​

1.
begin
 var a:=ArrRandom(10,1,50); a.Println;
 var c:=ReadInteger('c = ');
 var s:=a.Where(x->x>c);
 if s.Count>0 then
 writeln('Среднее арифметическое элементов > ',c,' = ',s.Average)
 else writeln('В массиве нет искомых элементов');
end.

Пример:
8 2 22 16 24 34 29 16 1 26
c =  50
В массиве нет искомых элементов

2.
const n=10;
var a:array[1..n] of integer;
c,i,s,k:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i],' ');
 end;
writeln;
write('c = ');
readln(c);
s:=0; k:=0;
for i:=1 to n do
 if a[i]>c then begin s:=s+a[i]; k:=k+1; end;
if k>0 then writeln('Среднее арифметическое элементов > ',c,' = ',s/k:5:2)
else writeln('В массиве нет искомых элементов');
end.

Пример:
39 38 43 25 45 16 16 12 35 16
c = 40
Среднее арифметическое элементов > 40 = 44.00

Var a: array of real;
    i,n,m,k,p: integer;
    s: real;
begin
  write('n = ');  readln(n);
  setlength(a,n);
  s:=1;
  randomize;
  writeln('массив:');
  for i:=0 to n-1 do
  begin
    a[i]:=random(200)/1000;
    s:=s*a[i];
    write(a[i]:5:3,' ');
  end;
  writeln;
  s:=power(s,1/n);
  p:=0; m:=0; k:=0;
  writeln('среднее геометрическое: ',s);
  for i:=0 to n-1 do
  begin
    if a[i]<s then inc(m);
    if a[i]>s then inc(k);
    if a[i]=s then inc(p);
  end;  
  writeln('меньше: ',m,'  равно: ',p,'   больше: ',k);
end.

n = 10
массив:
0.165 0.133 0.134 0.190 0.151 0.132 0.187 0.028 0.021 0.017 
среднее геометрическое: 0.0854754255570728
меньше: 3  равно: 0   больше: 7