Одномерные массивы. дан массив x из 20 целых чисел. найти количество и сумму тех элементов данного массива, значения которых больше среднего арифметического значения элементов массива. требования к программе: обязательно описание переменных; значение элементов массива ввести с клавиатуры.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger('введите 20 целых чисел: ',20);   var m: =a.average;   var p: =a.where(n-> n> m);   writeln('n=',p.count,', s=',p.sum) end. пример введите 20 целых чисел:   39 -34 15 13 28 26 28 -4 39 -48 15 -40 14 10 -16 -8 -5 26 -24 8 n=12, s=261

#include < stdio.h> #include < conio.h> int main() {       int a[20]; //объявляем массив целых чисел для 20 элементов       int i; //переменная для цикла фор       int sum=0, sum1=0; //переменная для суммы, начинаем с нуля       float avg;       int count=0; // переменная для подсчета колличеста элементов     //вводим масив с клавиатуры     printf("enter the massive of number\n");     for(i=0; i< 20; i++)     {             printf ("a[%d]=",i);             scanf("%d",& a[i]);             sum=sum+a[i]; // подсчет суммы всех элементов масива     }     avg=(float)sum/20; //расчет среднего арифметического       for(i=0; i< 20; i++)               if (a[i]> avg) //если число больше avg то сумируем и считаем                     {sum1=sum1+a[i];                       count++;                     }     printf("summa=%d            amount of numbers=%d",sum1, count);     return 0; }

Program prost; vari,m,j,k: integer; begin readln(m); for i: = 2 to m do begin  k: =   0; for j: = 2 to m-1 do   if i mod j   = 0 then   k: =k+1; if k< 2 then   write(i,' '); end; end.