Дан одномерный массив из n вещественных элементов.составить программу вычисления их среднего нужно на завтра,

const n={задаём};

var a: array[1..n] of real; sr,summ: real; i: integer;

begin

  for i: =1 to n do

        read(a[i]);

  for i: =1 to n do

    summ: =summ+a[i];

      sr: =summ/n;

      write(sr);

end.

program 1;   uses crt;   cоnst n=10;   var arr: array[1..n] of real;   sum: real;   i: integer;   begin clrscr;   writeln('please entel array');   for i: =1 to n do  read(arr);   sum: =0;   for i: =1 to n do  sum: =sum+arr;   writeln();   writeln("result=",sum/n);   readln;   end.

Тим бернерс-ли и в меньшей степени, роберт кайо. тим бернерс-ли 1980 году для собственных нужд написал программу «энквайр» которая заложила концептуальную основу для всемирной паутины. в 1989 году, работая в cern над внутренней сетью организации, тим бернерс-ли предложил гипертекстовый проект, теперь известный как всемирная паутина. официально годом рождения всемирной паутины нужно считать 1989 год .первый в мире веб-сайт был размещён бернерсом-ли 6 августа 1991 года. теоретические основы веба были заложены гораздо раньше бернерса-ли. ещё в 1945 году ванна́вер буш разработал концепцию «memex» — механических средств «расширения человеческой памяти» . memex — это устройство, в котором человек хранит все свои книги и записи (а в идеале — и все свои знания, формальному описанию) и которое выдаёт нужную информацию с достаточной скоростью и гибкостью. оно является расширением и дополнением памяти человека. бушем было также предсказано всеобъемлющее индексирование текстов и мультимедийных ресурсов с возможностью быстрого поиска необходимой информации. следующим значительным шагом на пути ко всемирной паутине было создание гипертекста (термин введён тедом нельсоном в 1965 году) .

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.