Пример кодирования информации по типу азбуки морзе

  .- .. .- -. -.   - . -    - ..   .- ..  -- .

Я не знаю что это, но я вставлю это))

|| || | | || || || || || || || || || || || | | | | | | | | | | | | | | | |

| | | |

| | | | | | | | | | | | |

| | | | | | |

Укажи, что происходит с информацией в данной жизненной ситуации:

|||||||||||

| | | | | | | |

| | | | | | |

| |

| | | | | | | | | | | | | | | | | | | | | |

| | | | | | | | | | | | | | | | | | | | | | | | | | |

| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |

| || || || | | | | | | | | | | | | | | | | | | | | | | |

ІІІІІ

Е

НЕ

|

|||||||||||||||||||||||||||||||||||||||||| | ||| || || | | | | |

| | | | | | | | | | | | | | | | | | | | | | |

E

| | | | | | | | | | | | | | | | | |

Шилди.

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIН

Ваня публикует информацию в блоге

| || || || || || || || || || || || || | | |

|||||||| || || | || || | | | | | | | | | | | | | | |

| | | | | | | | | | | | | | | | | | | | |

| | | |||||||||||||||||||| ||

| | | | | | | | | | | | | | | | | | | | |

|||||||||||||||||||||| || | || | || || | | | | | | | | | | | | | | | |

|

|| || || || || || || || || || || || || || || || || ||

||

|| || ||

|| || ||

| |

|

| | | | | | |

|

| |

| |

||

|| || || || |

|| |

||

||

обработка информации

получение информации

хранение информации

передача информации

|

/

/

ответить.

|

|

|

|

|

|

ІІ

IIIIII

І І

|

|

|

І

І

І

П ,

І

І

І

И ПРИНЦИПІШІ І І І І І І І І І І І І

ПІДПИПІННИЦІ ПІЛІППІ І І І І І І І І І

П

П

П

П

П

П

П

П П

П

П П

ИП

ЛИППИНПП

ПІШІНІНІП,

І ІІ

І І І І

І ЛІНІП

И

(у)

(1)

ПИСИ

ПОЛІПШІНІП ПП

И

И

ІНШІ ПЛІН,

ПІДПІЛІПІДІ ПІШІНІ

И

ИС

Var       mx, ind: integer;       n, m, i, j: integer;     b: array of integer;     a: array of array of integer; begin     read(n); setlength(a, n+1);       for i : = 1 to n do setlength(a[i], n+1);     for i : = 1 to n do             for j : = 1 to n do read(a[i][j]);       setlength(b, n+1);       for i : = 1 to n do b[i] : = a[i][i];       mx : = b[1]; ind : = 1;       for i : = 2 to n do              if (mx < b[i]) then begin                    mx : = b[i]; ind : = i; end;       write('макс. элемент гл. диагонали - b[',ind,'] = ', mx); end. или намного проще (если  нужен  только  ответ): var       mx, ind, el: integer;       n, m, i, j: integer; begin       read(n);       // присваем макс. элементу самое минимальное число,       // которое точно не встретится в массиве       mx : = -999999999;       for i : = 1 to n do             for j : = 1 to n do begin                     read(el);                   if (i < > j) then continue;                   if (mx < el) then begin                          mx : = el; ind : = i; end; end;       write('макс. элемент гл. диагонали - b[',ind,'] = ', mx); end.