Отново задача на Паскал

[даниела]

Здравейте мисля,че вие може да ми помогнете, много ще съм ви благодарна ако го сторите
Знам, че нямате практика да решавате задачи, но наистина ми е много сложно. Благодаря ви предварително, надявам се на не съм много нахална

Да се състави блок-схема и програма на Paskal за намиране на средноаритметичното на положителните, от последователно задавани числа, до задаване на нулево число.

Благодаря ви

[Реклама]

[admin]

Ако не трябва да направи блок схема и имаш числата a и b как ще им намериш средно аритметичното?

[даниела]

а+б/2 .....

[pavelludiq]

а ако са 3 числа? А ако са n на брой?

[даниела]

делим на n

[даниела]

Моля да си кажете мнението и да помагате да махнем грешките.
Това е първия вариянт...
program average;
var srar: real;i, n, sum: integer;
begin
i:=0;sum:=0;write('n=') или ("въведете първото число от редицата")
readln(n);
if n=0 then writeln('Започна накриво!');- (и тук не съм сигурна) else
begin
repeat if n>0 then
begin i=i+1; sum:= sum + n; srar:=sum/i;
end;
write('Следващo число:')
readln(n); until n<0 or n>0;
writeln('Средно аритметично:', srar:10:4); end;
end.

Това е втория вариянт...

program average;
var
srar: real;
i, n, sum: integer;

begin
i:=0; sum:=0;
writeln('Въведете първото число от редицата:');
readln(n);

while n <> 0 do
begin
if n>0 then
begin
i:=i+1;
sum:= sum + n;
end
else writeln('Въведеното число е отрицателно');
writeln('Въведете следващо число:');
readln(n);
end;

if i=0 then i:=1;
srar:=sum/i;
writeln('Средно аритметично от въведените положителни числа е:', srarsrar:10:4);
end.


Кое според вас е по вярни???
МОля помогнете да я направя тая програма, ако може да ми помогнете и за бло-схемата ще съм много благодарна!!!