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.
Однажды в одной маленькой комнате жили кровать, стол , стул , ковер , шкаф и монитор . Да вот только была еще мышка но с ней не дружили .Она всегда была одна . Однажды она загрустила . ее у видел монитор и сказал , - Что ты горюешь мышка? - Никто со мной не дружит , не с кем мне дружить я слишком маленькая . - Хочешь я буду твоим другом? - Ты же большой . А я маленькая и ненужненькая . - Без разницы маленькая ты или большая дружбе нету предела -Правда? -Конечно С тех пор монитор и мышка были лучшими друзьями
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.