1. Зачем при использовании нестандартной кодировки нужно передавать словарь? Как это изменит длину сообщения?
2. Как бы вы предложили закодировать словарь
для нестандартной кодировки?
3. Зачем нужны международные стандарты?
4. Что такое ASCII?
5. Как вычислить информационный объем сообщения?
6. Какие вы знаете кодировки текста, используемые в компьютерной технике?

//Задание №1
const
  m = 5;
  n = 7;

var
  a: array[1..m, 1..n] of integer;
  i, j, s: integer;

begin
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(21) - 10;
      if (i mod 2) <> 0 then s := s + a[i, j];
      write(a[i, j]:4);
    end;
    writeln;
  end;
  write('Сумма элементов на нечетных строках = ', s);
end.

Тестовое решение:
 -10   2  -1  -8  -9  -1   5
   2 -10   2   4   8  -6   8
   0   3   2   3  -8 -10   4
   3  -3  -4   2   9  -8   3
   9  -4  -1   3   7   3  -2
Сумма элементов на нечетных строках = -13

//Задание №2
const
  m = 5;
  n = 7;

var
  a: array[1..m, 1..n] of integer;
  i, j, s: integer;

begin
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(21) - 10;
      if (i mod 2) <> 0 then s := s + a[i, j];
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Элементы на нечетных столбцах:');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      if (j mod 2) <> 0 then write('a[', i, ',', j, '] = ', a[i, j], '  ');
    end;
    writeln;
  end;
end.

Тестовое решение:
   4 -10  -7  -4  -7  -5 -10
  -1   3   6 -10  -2  -1  -5
   2   8  -5  -1  -3   1   2
   3  10  -5   6  -1   3   2
  -8   3   4   5  -1   6  10
Элементы на нечетных столбцах:
a[1,1] = 4  a[1,3] = -7  a[1,5] = -7  a[1,7] = -10 
a[2,1] = -1  a[2,3] = 6  a[2,5] = -2  a[2,7] = -5 
a[3,1] = 2  a[3,3] = -5  a[3,5] = -3  a[3,7] = 2 
a[4,1] = 3  a[4,3] = -5  a[4,5] = -1  a[4,7] = 2 
a[5,1] = -8  a[5,3] = 4  a[5,5] = -1  a[5,7] = 10

1. Современный вариант
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(15,10,20); a.Println;
  Print('среднее',a.Average)
end.

Тестовое решение:
20 13 16 18 20 19 11 17 16 16 13 12 10 17 10
среднее 15.2

2. Школьный вариант
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
var
  a:array[1..15] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to 15 do begin
    a[i]:=Random(11)+10;
    Write(a[i],' ');
    s:=s+a[i]
    end;
  Writeln;
  Write('среднее ',s/15)
end.

Тестовое решение:
19 11 11 12 12 14 16 10 20 19 10 16 16 20 13
среднее 14.6