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

Question

Информатика

Нефёд

12 августа, 01:19

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

+3

Ответы (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.