В заданном массиве A(n) определить среднее арифметическое значение минимума и максимума. Если таких элементов нет, вывести на экран дисплея сообщение "вы ввели не число".
В заданном массиве 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]a[ma] then
ma:=i;
end; if mi=ma then write('вы ввели не число') else
write((mi+ma)/2);
end.
Не нашли ответ?
Похожие вопросы