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

286

390

Посмотреть ответы 3

Ответы на вопрос:

кракодиллох

Информатика

4,5(39 оценок)

// 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

Arabovih1975

Информатика

4,6(10 оценок)

#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; }

nastyagrigorov

Информатика

4,8(43 оценок)

Uses crt; var a,b: integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); if a> b then writeln(a-b,' первое число больше второго'); if a< b then writeln(b-a,' второе число больше первого'); if a=b then writeln('0 оба числа равны'); end.