Вопрос по информатике:
Вычислите среднее арифметическое наибольшего и наименьшего из n чисел. Язык программирования Паскаль.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.03.2016 21:57
- Информатика
- remove_red_eye 4700
- thumb_up 25
Ответы и объяснения 1
Program Task;
Const n = 5;
Var a: Array [1..n] of Integer;
i, min, max: Integer;
average: Real;
Begin
WriteLn('Введите ', n, ' целых чисел через пробел');
For i := 1 To n Do
Read(a[i]);
min := 1;
max := 1;
For i := 1 To n Do
Begin
If a[i] < a[min] Then
min := i;
If a[i] > a[max] Then
max := i;
End;
average := (a[min] + a[max]) / 2;
WriteLn('Результат: ', average:5:2);
ReadLn;
End.
- 21.03.2016 07:03
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.