Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Вычислите среднее арифметическое наибольшего и наименьшего из n чисел. Язык программирования Паскаль.

5-9 класс

Ramil0310 17 окт. 2013 г., 2:46:11 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Alina4354
17 окт. 2013 г., 3:58:29 (10 лет назад)

var

s,a,n,i,min,max:integer;

begin

min:=32767;

max:=-32768;

readln(n);

for i:=1 to n do

begin

readln(a);

if a<min then min:=a;

if a>max then max:=a;

end;

s:=(min+max)/2;

writeln(s);

end.

Ответить

Другие вопросы из категории

Читайте также

Проблема с Паскалем. Мне надо посчитать среднее арифметическое всех отрицательных чисел в массиве из десяти элементов. Я понимаю, как сначала надо

распредилить, какие числа меньше нуля, но как вычислить среднее арифметическое, не зная точное кол-во отрицательных элементов? Желательно написать полной программой. Заранее спасибо с:



Вы находитесь на странице вопроса "Вычислите среднее арифметическое наибольшего и наименьшего из n чисел. Язык программирования Паскаль.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.