Найдите значение выражения, информатика.​

1. Современное решение (быстро, просто и легко)
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4)
end.

Пример
23 11.7 0 12.9 16.7 13 -12
Ср.арифм: 12.8833

2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)

uses Crt;
var
  n:integer;
  x,a:real;
begin
  a:=0;
  n:=0;
  repeat
    Read(x);
    if x>=0 then begin
      n:=n+1;
      a:=a+x
      end
  until x<0;
  a:=a/n;
  Writeln('Ср.арифм: ',a:0:4);
  ReadKey
end.

а) Ситуация: человек смотрит телевизор Источник: телевизор → Приёмщик: человек

b) Ситуация: пешеход переходит дорогу на зелёный свет светофора

Источник: светофор → Приёмщик: пешеход

c) Ситуация: ученик готовит доклад

Источник: книги, интернет, люди → Приёмщик: ученик

d) Ситуация: мама разговаривает со своей дочкой

Источник-приёмщик: мама → Приёмщик-источник: дочка

2)1. Звук барабана особенно популярен среди африканских племён. Он распространить сигнал о тревоге на несколько километров.

2. Для передачи сигнала на большие расстояния разные народы использовали дым костра.

3. Для передачи информации на дальние расстояния использовали гонцов.

4. С развитием письменности появилось такое средство дальней связи, как почта.

5. Радио является звуковым каналом передачи информации на большие расстояния. Это и общая развлекательная, и новостная информация.

6. Телефон является личным каналом информации. Используется людьми для общения.

7. Телевидение многоканальный канал информации. Происходит передача как звуковой, так и видеоинформации.

8. Спутники необходимы для передачи информации различного свойства на большие расстояния.

9. Сеть интернет «Всемирная паутина» является каналом связи для передачи различного вида информации.