Сколько элементов массива превышают среднее арифметическое значение максимального и минимального элементов?) на паскале

Question

Информатика

Петюка

9 сентября, 12:53

Сколько элементов массива превышают среднее арифметическое значение максимального и минимального элементов?) на паскале

+4

Ответы (1)

Знаете ответ?

Тина · Answer 1

Var

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

i, min, max, k:integer;

mid:real;

begin

write ('Кол-во элементов массива: ') ;

readln (n) ;

for i:=1 to n do

readln (a[i]) ;

max:=0; k:=0;

for i:=1 to n do

if a[i]> max then max:=a[i];

min:=max;

for i:=1 to n do

if a[i]
mid: = (max+min) / 2

for i:=1 to n do

if a[i]>mid then k:=k+1;

writeln (k,' чисел') ;

end.