мне нужна программа которая находит среднее арифметическое чисел вводимых в консоль.
rus10011111:
Количество чисел - n
Ответы на вопрос
Ответил rus10011111
0
var
n, t: integer;
a, s: real
begin
readln(n);
for t := 1 to n do
begin
readln(a);
s := s + a;
end;
writeln(s / n);
end.
n, t: integer;
a, s: real
begin
readln(n);
for t := 1 to n do
begin
readln(a);
s := s + a;
end;
writeln(s / n);
end.
Ответил AnonimusPro
0
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(ReadSeqInteger(ReadInteger).Average);
end.
//Версия 3.3, сборка 1627
begin
write(ReadSeqInteger(ReadInteger).Average);
end.
Новые вопросы