Найти среднее арифметическое элементов массива.найти сумму элементов массива, которые меньше среднего арифметического

Дано натуральное число N (N <= 32767) и N целых чисел, не превышающих по модулю 32767. Найти среднее арифметическое и сумму чисел, которые меньше его. Точность среднего арифметического - 5 знаков после запятой.

Формат вывода: среднее арифметическое и сумма чисел меньше его через пробел.

Код (Pascal)

var

 i, n: integer;

 a: array[1..32767] of integer;

 sr: real;

 sum: longint;

begin

 read(n);

 sr := 0;

 sum := 0;

 for i := 1 to n do

 begin

   read(a[i]);

   sr := sr + a[i];

 end;

 sr := sr / n;

 write(sr:5:5, ' ');

 for i := 1 to n do

   if a[i] < sr then sum := sum + a[i];

 writeln(sum);

end.

Тесты

Ввод:

3

1 2 3

Вывод:

2.00000 1

Ввод:

3

0 0 2

Вывод:

0.66667 0

Код программы:

#include <iostream>

#include <locale>

using namespace std;

int main() {

setlocale(LC_ALL, "Russian");

double D, a, b, c, x1, x2;

cout<<"Введите коэффициент a" << endl;

cin >> a;

if (a == 0) {

 cout << "Ошибка ввода! Коэффициент a не должен равняться 0" << endl;

 return 0;

}

cout << "Введите коэффициент b" << endl;

cin >> b;

cout << "Введите коэффициент c" << endl;

cin >> c;

cout << "\nВаше уравнение: " << a << "x^(2) + " << b << "x + " << c << endl;

D = sqrt(b*b - 4 * a * c);

if (D >= 0) {

 if (D == 0) {

  x1 = (-b) / (2 * a);

  cout << "x1 = " << x1 << endl;

 }

 else {

  x1 = (-b - D) / (2 * a);

  x2 = (-b + D) / (2 * a);

  cout << "x1 = " << x1 << endl;

  cout << "x2 = " << x2 << endl;

 }

}

else

 cout << "\nУравнение не имеет корней (D < 0)" << endl;

return 0;

}

Объяснение:

Шоколадка

Степан вирішив пригостити однокласників шоколадками. Шоколадка коштувала N грн. З першого листопада вартість шоколадки збільшилась рівно на Р відсотків. Визначте скільки шоколадок зможе купити Степан на S грн після подорожчання.

Формат вхідних даних:

У першому рядку задано число N (1 ≤ N ≤ 107) - вартість шоколадки до подорожчання. У другому рядку Р (0 ≤ Р ≤ 100) - величина подорожчання шоколадки у відсотках. В третьому рядку - S (1 ≤ S ≤ 107) - сума грошей, яка є у Степана.

Формат вихідних даних:

Виведіть одне число - кількість шоколадок, які може купити Степан.