Question

ОЧЕНЬ СРОСНО!!!!!!
Составить программу, находящую среднее арифметическое любых пяти чисел. ПОЖАЛУЙСТА!!!!!! в цикле для, пока, до

Answer 1

Var
  i:integer;
  a,b:real;
Begin
  for i:= 1 to 5 do Begin
    a:=random(50);
    write(a,' ');
    b:=b+a;
  End;
  Writeln;
  write('Их средн арифм = ',b/5);
End.

Answer 2

Поясните, пожалуйста, я не понимаю

Answer 3

В цикле 5 раз (а присваиваем случайное число, пишем его, прибавляем к b) после выводим на экран b/5