Найти количество элементов массива целых чисел из 20 элементов, заполнненного с...

+878 голосов
6.4m просмотров

Найти количество элементов массива целых чисел из 20 элементов, заполнненного с клавиатуры, меньших среднего арифметического элементов массива Очень срочно!


Информатика (103 баллов) | 6.4m просмотров
+58

Я забыл указать,нужно в PASCAL

Дан 1 ответ
+170 голосов

/** libraries */

#include

#include

#include

#include

#include

#include

#include

#include

/** libraries */

using namespace std;

/** defines */

#define ll long long

#define ld long double

#define yes cout << "YES" << "\n"</strong>

#define no cout << "NO" << "\n"</strong>

/** defines */

int a[20];

void solve(){

   ld sum = 0;

   for(auto i: a)

       sum += i;

   ld av = sum / 20;

   int res = 0;

   for(auto i: a)

       if(i < av)

           res++;

   cout << res;</strong>

}

signed main() {

   ios_base::sync_with_stdio(false);

   cin.tie(nullptr);

   cout.tie(nullptr);

   for(int i = 0; i < 20; i++)

       cin >> a[i];

   solve();

}

(149k баллов)
+104

Забыл указать,что нужен PASCAL