Var n,s,k,i : integer; Begin writeln ('Введите кол-во чисел'); readln (n); for i:=1 to n do begin writeln ('Введите ',i,' число'); readln (k); s:=s+k; end; writeln ('Среднее арифметическое =',s/n:5:2); End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
