В заданном массиве A(n) определить среднее арифметическое значение минимума и максимума. Если таких элементов нет, вывести на экран дисплея сообщение "вы ввели не число".
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
