Журналист
Seapop 4 ноября 2019 в 06:36

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

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

{1}

var a,n,s: integer;
begin
 n := 0;
 s := 0;
 read(a);
 while a gt;= 0 do
  begin
  s := s + a;
  n := n + 1;
  read(a)
  end;
 write(s/n)
end.



{2}

var a,n: integer;
begin
 n := 0;
 read(a);
 while a lt;gt; 0 do
  begin
  n := n + 1;
  read(a)
  end;
 write(n)
end.

Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте