Предмет: Информатика,
автор: vladausatova
Помогите с задачей по информатике, пожалуйста. Оформить на языке Паскаль.
Дан ряд от 1 до N. Найти среднее арифметическое нечётных чисел.
Аноним:
50 руб.
Ответы
Автор ответа:
0
Ответ:
(см. объяснение)
Объяснение:
Короткое решение на PascalABC.NET:
##
var a:= ReadArrInteger(ReadInteger('Введите N:')).Where(x->x mod 2>0);
('Ответ: '+a.Sum/a.Count).Print;
Эффективное решение на PascalABC.NET:
var a, n, i, sum, col: integer;
begin
sum:= 0;
col:= 0;
write('Введите N: ');
readln(n);
write('Введите последовательность: ');
for i:= 1 to n do
begin
read(a);
if(a mod 2 > 0) then
begin
sum:= sum + a;
col:= col + 1;
end;
end;
writeln('Ответ: ', sum / real(col))
end.
Обратите внимание, что последовательность вводится сразу через пробел, то есть в строку.
Задание выполнено!
Похожие вопросы
Предмет: Қазақ тiлi,
автор: DraGON12122005
Предмет: Английский язык,
автор: Ленаор666
Предмет: Окружающий мир,
автор: Катюша1988
Предмет: История,
автор: luskalova5546
Предмет: Математика,
автор: nastazelenko28