natachi
?>

1. Какие типы принтеров вам известны? Приходилось ли вам распечатывать информацию на принтере?. Если да, то какого он был типа? 2. Какие группы клавиш можно выделить на клавиатуре? С какими вы работали. Дайте им характеристику. 3. Текст занимает полных 5 страниц. На каждой странице 30 строк по 70 символов в строке, для хранения одного символа требуется 8 битов. Какой объём рперативной памяти (в байтах) займет этот текст?

Информатика

Ответы

rusinfopro

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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

1. Какие типы принтеров вам известны? Приходилось ли вам распечатывать информацию на принтере?. Если да, то какого он был типа? 2. Какие группы клавиш можно выделить на клавиатуре? С какими вы работали. Дайте им характеристику. 3. Текст занимает полных 5 страниц. На каждой странице 30 строк по 70 символов в строке, для хранения одного символа требуется 8 битов. Какой объём рперативной памяти (в байтах) займет этот текст?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kogakinoa
abdulhakovalily22
Shcherbinin KOLIChEVA
vipteatr
Vetroff-11
Mukhlaev-Olga
rsksnb
Larisa-0888716
dobrovolsky-tmz1
mariia39
snabdonm501
printdecor
okutihamv
Виталий_Ильназ574
Fedorov1283