Программирование PascalABC
Найти кол-во цифр на заданном интервале​

1. Есть очень много вирусов они могут очень быть опасными для человека или того же животного.
Известные вирусы: Коронавирус, орви, пневмония или есть много видов грип они все очень опасные и чтобы защитить свой организм нужно жить правильно короче здарова нужно жить.

2. Вреданостные программы создают для того чтобы взломать компьютер, телефон или ноутбук. Создают это плохие хакеры. Они это делают для того чтобы украсть твои данные.

3.то что он начинает зависать плохо работать. Или вообще отключатся и потом скора этот компьютер будет не починить и он сломается и так этот вирус начнёт заряжать другие компьютеры. Чтобы это остановить нужно установить анти-вирус он ваш компьютер и устранит вирус.

Дано натуральное число 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