Предмет: Информатика, автор: Ab24

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


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

Ответы

Автор ответа: Аноним
0

/** libraries */

#include <iostream>

#include <cmath>

#include <vector>

#include <map>

#include <set>

#include <queue>

#include <stack>

#include <algorithm>

/** libraries */

using namespace std;

/** defines */

#define ll long long

#define ld long double

#define yes cout << "YES" << "\n"

#define no cout << "NO" << "\n"

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

}

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();

}


Ab24: Забыл указать,что нужен PASCAL
Похожие вопросы
Предмет: Русский язык, автор: Семёнsss
Предмет: Математика, автор: olitodorova14