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

Question

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

Answer 1

Var a, b, c, d, e: real;
begin
write('Введите 5 чисел через пробел: '); readln(a, b, c, d, e);
writeln('Среднее арифметическое = ', (a+b+c+d+e)/5);
end.

Answer 2

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.