помогіте с задачкой!, Використати цикли While і Repeat Опции

[Kroft]

Зклавіатури вводиться послідовність чисел, умова завершення число 0. Визначити середне арифметичне відємних чисел послідовності.

[Александр Сергеевич]

как вариант...

program chisla;
uses crt;
var
a,t,x:real;
k:integer;
begin
clrscr;
t:=0;
k:=0;
writeln('vvedite chislo:');
repeat
readln(x);
t:=t+x;
inc(k);
until x=0;
a:=t/k;
writeln('srednee arifm.posled.=',a);
readln;
end.

[мисс_граффити]

непонятно только, нужно ли было учитывать ноль при подсчете среднего арифметического (или он просто символ конца последовательности)

[Александр Сергеевич]

ну если не учитывать то можно делить на k-1 при вычислении... но в условии не уточняется, надо ли 0 учитывать или просто символ конца последовательности

Сообщение отредактировано: Александр Сергеевич - 3.12.2012 18:09