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.
// 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. Сеть интернет «Всемирная паутина» является каналом связи для передачи различного вида информации.