Цитата:
Сообщение от 11Angelav
Язык программирования забыли указать.
|
ноя уже решил
var
a,s,n,i: integer;
begin
write('Сколько чисел в последовательности? ');
readln(n);
s:=0; i:=0;
repeat
inc(i);
write(i,'-е число: ');
readln(a);
s:=s+a;
until i>=n;
writeln('Среднее = ',s/n);
readln;
end.