PascalABC1. Отыскать средне арифметическое частей массива, превосходящих некое число

var a:array of longint;

i,c,x,n,k:longint;

begin

read(n); //длина массива

a:= new longint[n];

for i:=0 to n-1 do read(a[i]);

read(c);//некое число С

for i:=0 to n-1 do

if a[i]gt;c then

begin

k+=1;

x+=a[i]

end;

writeln(x/k);//ответ на первый пункт

k:=0;

x:=0;

for i:=0 to n-1 do

if i mod 2=0 then

begin

k+=1;

x+=a[i];

print(a[i])//второй пункт

end;

writeln;

write(x/k)// третий пункт

end.

program first;

var a:array[1..100] of integer;

i,s,k,n,c:integer;

sr:real;

begin

read(n); кол-во частей массива

for i:=1 to n do

read(a[i]); ввод массива

read(c); ввод числа C

s:=0; k:=0;

for i:=1 to n do

if (a[i]gt;c) then begin s:=s+a[i]; k:=k+1; end;

sr:=s/k; считаем среднее арефмет.

writeln(sr); выводим ср. арефм.

for i:=1 to n do

if a[i] mod 2lt;gt;0 then write(a[i],' '); делаем 2 пункт

writeln;

s:=0; k:=0; обнулим чтоб использовать еще раз

for i:=1 to n do

if a[i] mod 2lt;gt;0 then begin s:=s+a[i]; k:=k+1; end;

sr:=s/k;

writeln(sr);

end.