Предмет: Информатика,
автор: Vlad2108
Написать программу, в которой происходит поиск среднего арифметического в интервале от -10 до 5. Массив целочисленный из 30 элементов.
Ответы
Автор ответа:
0
// PascalABC.Net 3.0, сборка 1076
begin
var a:=ArrRandom(30,-20,20);
Writeln('Исходный массив',#13#10,a);
Writeln('Среднее на [-10..5] равно ',
a.Where(x->x in [-10..5]).Average)
end.
Тестовое решение:
Исходный массив
[-17,-3,-15,0,-2,-2,-12,17,-4,20,-15,-18,-10,18,5,15,19,-6,11,19,-18,12,9,16,14,17,-20,-7,-2,16]
Среднее на [-10..5] равно -3.1
begin
var a:=ArrRandom(30,-20,20);
Writeln('Исходный массив',#13#10,a);
Writeln('Среднее на [-10..5] равно ',
a.Where(x->x in [-10..5]).Average)
end.
Тестовое решение:
Исходный массив
[-17,-3,-15,0,-2,-2,-12,17,-4,20,-15,-18,-10,18,5,15,19,-6,11,19,-18,12,9,16,14,17,-20,-7,-2,16]
Среднее на [-10..5] равно -3.1
Похожие вопросы
Предмет: Математика,
автор: elinaradcenko0
Предмет: Математика,
автор: Аноним
Предмет: Литература,
автор: Аноним
Предмет: Математика,
автор: paranoidvlad
Предмет: Математика,
автор: Фимочка