Как организована связь абонентов в сети?

(телекоммуникационная) сеть — это система связанных между собой локальных сетей и компьютеров отдельных пользователей. персональные компьютеры пользователей (абонентов) подсоединяются к узлам сети. существуют региональные, отраслевые сети. в настоящее время большинство из них объединено в мировую систему, которая называется «интернет».

Рассмотрим, что делает эта программа.
  c := 0; // начальное значение счётчика

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

    if A[i - 1] < A[i] then begin // если текущий элемент больше предыдущего

      c := c + 1; // то увеличиваем счётчик на 1

      t := A[i]; // и меняем текущий элемент местами с предыдущим

      A[i] := A[i - 1];

      A[i - 1] := t

    end;

Последние три строчки перед end - обычный алгоритм обмена значениями между двумя переменными (t = a; a = b; b = t).

Итак, моделируем, что делает программа и считаем число обменов.

0) 6 9 7 2 1 5 0 3 4 8 - исходный массив
1) 6 9 7 2 1 5 0 3 4 8 -> 9 6 7 2 1 5 0 3 4 8 ОБМЕН
2) 9 6 7 2 1 5 0 3 4 8 -> 9 7 6 2 1 5 0 3 4 8 ОБМЕН
3) 9 7 6 2 1 5 0 3 4 8 ОК
4) 9 7 6 2 1 5 0 3 4 8 ОК
5) 9 7 6 2 1 5 0 3 4 8 -> 9 7 6 2 5 1 0 3 4 8 ОБМЕН
6) 9 7 6 2 5 1 0 3 4 8 ОК
7, 8, 9) Ноль будет "всплывать" в конец, 3 ОБМЕНА

Всего будет 6 обменов, c = 6.

Везде значения вводятся с клавиатуры!
на java
если изучали массив:
public class qwert {
public static void main(String args[]) {
Scanner scn = new Scanner(System.in);
int[] a = new int[5];
int k = 0;
for (int i = 0; i < 5; i++) {
a[i] = scn.nextInt();
k = k + a[i];
if (i == 4)
System.out.println(k/i);
}
}}
если не изучали массив:
public class qwert {
public static void main(String args[]) {
Scanner scn = new Scanner(System.in);
int a = scn.nextInt();
int b = scn.nextInt();
int c = scn.nextInt();
int d = scn.nextInt();
int e = scn.nextInt();
int s = (a + b + c + d + e) / 5;
System.out.println(s);
}}
на паскале через массив:
var a:array [1..5] of integer;
i:integer;
s:real;
begin
for i := 1 to 5 do
begin
readln(a[i]);
s := s + a[i];
if i = 5
then
write (s/i);
end;
end.
не через масивы:
var a,b,c,d,e :integer;
s:real;
begin
readln(a,b,c,d,e);
s := (a+b+c+d+e)/5;
write(s);
end.