Вопрос по информатике:
В массиве из 10 целых чисел вычислить разность между наибольшим элементом и средним арифметическим всех элементов массива
Паскаль !
- 25.01.2015 06:17
- Информатика
- remove_red_eye 10398
- thumb_up 9
Ответы и объяснения 2
Var ma,sum,x:real;
i:int64;
begin
for i:=1 to 10 do begin
read(x);
sum:=sum+x;
if ma
writeln(ma-(sum/10));
end.
- 26.01.2015 10:53
- thumb_up 51
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(10,20,25); a.Println;
Writeln(a.Max-a.Average)
end.
Тестовое решение
23 25 25 23 23 24 20 23 25 21
1.8
- 27.01.2015 12:18
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.