Решите коммуникативную задачу и определите систему взаимодействующих элемен-тов, связанных между собой по выделенным или коммутируемым линиям для обес-печения локальной или удаленной связи (голосовой, визуальной, обмена данными и т.п.) и для обмена сведениями между пользователями, имеющими общие интересы
1. сеть
2. чат
3. форум
4. браузер

var n,i: integer; // объевляем переменные типа integer (целые числа)

function fact(n: integer): integer; // создаем функцию для нахождения факториала - которая принимает число (integer) и возвращает integer

begin // начало функции

if n = 1 then // проверка на то что число равно 1

fact:= 1 // если n=1, то факториал 1

else // если n не 1

fact:=fact(n-1)*n; // то ищем факториал рекурсивным

end; // конец функции

begin  // старт программы

for i:= 1 to 9 do  // цикл от 1 до 9

if i mod 2 = 1 then  // проверка числа на остаток

writeln(fact(i));  // пишем факториал

end. // конец программы

1)
const n=10;
var a:array[1..n] of real;
i:integer; s:real;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=10*random-5;
 write(a[i]:6:2);
 end;
writeln;
s:=0;
for i:=1 to n do
 if a[i]>0 then s:=s+a[i];
writeln('s = ',s:5:2);
end.

Пример:
  1.17  3.93 -4.82 -0.13 -2.56  2.28 -2.92  4.73 -1.67 -0.64
s = 12.11

2)
const n=10;
var a:array[1..n] of real;
i:integer; s:real;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random+2;
 write(a[i]:6:2);
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('Среднее = ',s/n:5:2);
end.

Пример:
  2.13  2.45  2.68  2.32  2.59  2.36  2.36  2.21  2.51  2.83
Среднее =  2.44