В заданном массиве A (n) определить среднее арифметическое значение минимума и максимума. Если таких элементов нет, вывести на экран дисплея сообщение "вы ввели не число".

Question

Информатика

Фессалоника

1 января, 20:51

В заданном массиве A (n) определить среднее арифметическое значение минимума и максимума. Если таких элементов нет, вывести на экран дисплея сообщение "вы ввели не число".

+3

Ответы (1)

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

Рома · Answer 1

var

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

i, ma, mi, n, s:integer;

begin

readln (n) ;

for i:=1 to n do

read (a[i]) ;

ma:=1;

mi:=1;

for i:=2 to n do begin

if a[i]
mi:=i;

if a[i]>a[ma] then

ma:=i;

end;

if mi=ma then

write (' вы ввели не число ')

else

write ((mi+ma) / 2) ;

end.