В массиве из 10 целых чисел подсчитать количество элементов меньших, чем среднее арифметическое минимального и максимального элементов.

Question

Информатика

Стоян

13 ноября, 19:14

В массиве из 10 целых чисел подсчитать количество элементов меньших, чем среднее арифметическое минимального и максимального элементов.

+4

Ответы (1)

~~Знаете ответ на вопрос?~~

Светуля · Answer 1

Var a: array[1 ... 10] of integer;

begin k:=0;

for i:=1 to 10 do begin

writeln ('Введите 10 чисел') ; readln (a) ;

max:=a[i]; min:=a[i]

for i:=2 to 10 do begin

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

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

for i:=1 to 10 do begin

if a[i]
writeln (k) ;

end.