Этапом формирования информационного общества можно назвать:

1 выработка единых правил поиска информации и поведения в сети

2 создание телекоммуникационной инфраструктуры, включающей в себя сети передачи данных;

3 все перечисленное
4 появление баз данных, доступ к которым доступен потребителям

program p1;

uses crt;   вывод окошка

const N = 30;

var a: array [1..N] of integer;

i, max, max2 :integer;

begin

 for i:=1 to N do begin  вывод элементов массива с рандома

a[i]:=  random (100);

 write( a[i]:4);

 end;

         writeln;

   max:= a[1];  принимаем первый элемент массива за макс

   max2:= a[1];  принимаем первый элемент массива за макс

  for i:=1 to N do begin              находим первый max                                                                  

    if  max<a[i] then

      max:= a[i];

      end;

      for i:=1 to N do begin                            находим второй max2

        if (max2<a[i]) and ( a[i]<> max) then

         max2:= a[i];

         end;

         writeln('max=',max);

         writeln('max2=',max2);

         end.

summa = 0

kolvo = 0

for i in range (5, 28):

   summa += i

   kolvo += 1

print(summa/kolvo)

Объяснение:

для начала задаём два "счётчика" - сумма и количество

для каждого числа (назовём его i) в диапазоне от 5 до 28 (28, а не 27, потому что программа считает не включительно:

к сумме добавляем это число

к количеству чисел добавляем 1

\\значок "+=" работает так: a+=1 обозначает то же самое, что и a = a+1\\

таким образом к концу этого цикла мы получим общую сумму всех чисел и их количество

программа выведет результат от деления суммы на количество