Дан двумерныймассив массив a[n, m]. определить количество элементов четвертого столбца массива, меньших 5.

// программа и скриншот ее работы в приложениях const       t_max=12; var          i,j,s: byte;       m,n: byte;       t: array[1..t_max, 1..t_max]of integer;       begin   write('введите значение m> 4,n> 4 для определения массива t[m,n]: ');   readln(m, n);   writeln('заполнение массива случайными данными');     //начальные значения min и max   for i: =1 to m do begin       for j: =1 to n do begin           t[i,j]: =random(-79,79); // диапазон случайных чисел           write(t[i,j]: 6);                 end;       writeln();   end;   writeln();   writeln('определить количество элементов четвертого столбца массива, меньших 5');   s: =0;   for i: =1 to m do       if (t[i,4]< 5) then           s: =s+1;   writeln('ответ: условию удовлетворяют ', s, ' элементов');   end.

отдел +;

использует

  из "",

  приём из "",

  вывод из "";

 

пер

  a: доступ к ряд из ряд из цел;

  n, m, сч1, сч2: цел;

  элементов: цел;

 

указ

  вывод.цепь("введите n (> =5): ");

  n : = приём.число();

  вывод.цепь("^введите m (> = 5): ");

  m : = приём.число();

  если (n < 5) или (m < 5) то

      вывод.цепь("^некорректные параметры.")

  иначе

      создать(a, n, m);

      от сч1 : = 0 до n - 1 вып

          от сч2 : = 0 до m - 1 вып

              a[сч1, сч2] : = узк(вширцел(.случ() * 10))

          кон

      кон;

      элементов : = 0;

      от сч1 : = 0 до n - 1 вып

          если a[сч1, 3] < 5 то увеличить(элементов) кон

      кон;

      вывод.чцел("^элементов 4-го столбца, меньших 5: %d.", элементов, 0, 0, 0)

  кон

кон .

итак,  интернета можно разделить на несколько этапов.

1961 – 1970 гᴦ. разработаны технические принципы компьютерной сети, введен в действие arpanet.

1971 – 1980 гᴦ. придуман знак @. написана первая программа для элек­тронной почты. осуществлена первая международная связь по электронной почте между и норвегией. число узлов arpanet возросло до не­скольких десятков, проложены специальные кабельные линии, соединяющие некоторые узлы, начинает функционировать электронная почта͵ о результа­тах работ ученые докладывают на международных научных конференциях.

1981 – 1990 гᴦ. принят протокол tcp/ ip, введена система доменных имен domain name system (dns).

сформирована сеть интернет.

1991–2000 гᴦ. ethernet стал самой распространенной технологией ло­кальной компьютерной сети. интернет объединил локальные сети и стал сред­ством массовой коммуникации. прои­зошло сращивание сотовой связи и интернета. телетехнологии встроены в сеть – телемосты, ви­деоконференции. услуга интернет и электронной почты встроена в мо­бильные телефоны.