Это в Паскале.

Первая задача: Дана последовательность чисел, оканчивающихся отрицательным числом. Найти среднее арифметическое введенных положительных чисел.

И вторая: Дана последовательность чисел, количество которых заранее не известно. Сколько чисел было введено до первого нуля?

Буду очень благодарен, если ответите.

{1}

var

i, n, s: integer;

begin

i : = 0;

writeln ('Введите последовательность чисел, оканчивающихся отрицательным числом') ;

repeat

readln (n) ;

if n > 0 then begin

s : = s + n;

i : = i + 1;

end;

until n < 0;

writeln (s / i) ;

end.

{2}

var

i, n: integer;

begin

i : = 0;

writeln ('Введите последовательность чисел, оканчивающихся 0') ;

repeat

readln (n) ;

if n 0 then

i : = i + 1;

until n = 0;

writeln (i) ;

end.