В файле в первой строке указано число M – количество учеников в классе. В следующих M строках содержатся сведения о росте каждого из М учеников одного класса (данные вводятся в алфавитном порядке фамилий учеников).
Определить средний рост учеников, чьи фамилии расположены в журнале между фамилиями учеников с минимальным и максимальным ростом (рост этих учеников тоже учитывать), считая, что самый высокий и самый низкий ученики единственные в классе.
Входные данные:
в первой строке целое число M (M ≤ 100) — кол-во учеников в классе. Во следующих М строках вещественные положительные числа Х1, Х2,..,Хм — значения роста учеников в метрах.
Выходные данные:
средний рост в соответствии с условием задачи с точностью до сантиметра.
pascal/c/c++/jawa/питон 2 или 3
const
max = 42;
var
vt:array[1..max]of integer;
i,n:byte;
x:integer;
num:integer;
BEGIN
n := max;
writeln('Массив из n элементов будет задан случайными числами на интервале [0..20].');
readln(n);
writeln('Подсчитать количество положительных элементов больших чем указанное число.');
writeln('Введите число: '); readln(x);
writeln(' ');
writeln('Начальный Массив' );
randomize;
num := 0;
for i:=1 to n do begin
vt[i]:=random(-512,512);
write(vt[i], ' ');
if (vt[i]>0) then
num:=num+1;
end;
writeln(' ');
writeln('Найдено ', num,' положительных элементов больших чем ', x);
END.