ОЧЕНЬ СРОСНО!!!!!! Составить программу, находящую среднее арифметическое любых пяти чисел. ПОЖАЛУЙСТА!!!!!! в цикле для, пока, до
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.
Поясните, пожалуйста, я не понимаю
В цикле 5 раз (а присваиваем случайное число, пишем его, прибавляем к b) после выводим на экран b/5