Составьте программу вычисления среднего арифметического целых чисел из отрезка [-4; 15]. (паскаль)

Question

Жерик

Информатика

29 сентября, 15:38

Составьте программу вычисления среднего арифметического целых чисел из отрезка [-4; 15]. (паскаль)

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Юлия Смирнова · Answer 1

program nn;

Var x, s:integer;

sred:real;

begin

s:=0;

for x:=-4 to 15 do

s:=s+x;

sred:=s/20;

writeln ('Среднее арифметическое = ', sred);

end.