Написать программу на я/п Паскаль: среднее арифметическое пяти произвольных чисел

Question

Информатика

Доса

6 декабря, 13:45

Написать программу на я/п Паскаль: среднее арифметическое пяти произвольных чисел

+1

Ответы (2)

Знаете ответ?

Евгеня · Answer 1

Var a, b, c, d, e, sum:integer;

begin

b:=random (-10000; 10000) ;

a:=random (-10000; 10000) ;

c:=random (-10000; 10000) ;

d:=random (-10000; 10000) ;

e:=random (-10000; 10000) ;

sum:=a+b+c+d+e;

write (sum/5) ;

end.

Светлана · Answer 2

Var a, b, c, d, e: real;

begin

write ('Введите 5 чисел через пробел: ') ; readln (a, b, c, d, e) ;

writeln ('Среднее арифметическое = ', (a+b+c+d+e) / 5) ;

end.