Question

Нужна программа в паскале ABC
Задача:

Дан одномерный массив C(N). Удалить элементы одномерного массива, которые больше среднего арифметического значения. Выведите на печать преобразованный массив и число его элементов.

Answer 1

program fantscrin;

 var a,c: array [1..1000] of integer;

 i,n,s,j:integer;

Begin

 write('N = '); readln(n);

 s:=0;

 for i:=1 to n do

 begin

   write('c[',i,'] = '); readln(c[i]);

   s:=s+c[i];

 end;

 writeln('S = ', s);  

 

 j:=0;

 for i:=1 to n do

   if c[i] > s / n then  

               begin

                 j:= j + 1;

                 a[j]:= c[i];

               end;

   

 for i:=1 to j do

   write(a[i], ' ')

End.