Цитата:
Сообщение от Мага
вот так получается но задача полностью не выполнена же ?
|
Ладно, раз Вы сами хоть что-то попытались сделать - помогу. Вот Вам рабочий код:
Код:
Var
A,Sum,n:Integer;
Begin
Sum:=0;
n:=0;
Repeat
Write('Next number: ');
Readln(A);
if A<>0 then
begin
Inc(n);
Inc(Sum,A);
end;
Until A=0;
If n<>0 then Writeln('Reasult= ',Sum/n:0:3);
Readln
End.