Напишите программу в Pascal ABC,которая вычисляет среднее арифметическое пяти целых чисел
По дате
По рейтингу
var i,s,a:integer; begin s:=0; for i:=1 to 5 do begin read(a); s:=s+a end; writeln(s/5) end.
begin
ArrRandom(5,1,99).Println.Average.Println;
end.
s:=(a1+a2+a3+a4+a5)/5;