Вводятся целые числа A и B. Выведите среднее арифметическое всех неотрицательных чисел от A до B



Вводятся целые числа A и B. Выведите среднее арифметическое всех неотрицательных чисел от A до B

ЛЮБОВЬ в категроии Информатика, вопрос открыт 17.05.2017 в 23:04

Нужно составить программу в паскале.

1 ответ



Шпетная Анна николаевна , ответ добавлен 17.05.2017 в 23:16

var
a, b: integer;

begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
writeln('Последовательность: ');
x.Println;
writeln('Ср. ариф. неотриц чисел: ');
writeln(x.Where(x -> x >= 0).Average);
end.

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.