1.Выберите два подхода к измерению информации.. 1)алфавитный 2)математический
3)вероятностный
4)числовой
2. Информационный вес символа двоичного алфавита определяют как единицу информации и называют
1)1 Бит
2)1Байт
3)1Кб
4)1 Мб
3. Количество информации i, которое несет один символ (информационный вес одного символа алфавита) в тексте, и мощность алфавита N связаны формулой Хартли:
1)2*i = N
2)2^i=N
3)2/i=N
4. Выберите правильный ответ
1)2 Мбайта = 2048 Кбайт.
2)16 бит =4 байтам.
3)4 байта = 36 битам.
4)8 Кбайта =8000 байтам.
6.Укажите функцию процессора..
1)передача информации 2)обработка информации
3)ввод информации
4)хранение информации
7.Эффективность работы компьютерной сети определяются следующими параметрами
1)ценность
2)пропускная
3)надежность 4)разрядность

Const
  M = 10; // Количество строк
  N = 10; // Количество столбцов

var
  arr: array [1..M, 1..N] of integer;
  i,j,z,min,temp : integer;
begin
  for j := 1 to M do
    for i := 1 to N do
      arr[j, i] := random(99);
  
  writeln('Исходный массив:');
  for j := 1 to M do
  begin
    for i := 1 to N do
      write(arr[j, i] : 2, ' ');
    writeln;
  end;

  for j := 1 to M do
  begin
    for i := 1 to N - 1 do
    begin
      min := i;
   
      for z := i + 1 to N do
        if arr[j, z] < arr[j, min] then
          min := z;
   
      temp := arr[j, min];
      arr[j, min] := arr[j, i];
      arr[j, i] := temp;
    end;
  end;
  
  writeln;
  writeln('Отсортированный массив');
  for j := 1 to M do
  begin
    for i := 1 to N do
      write(arr[j, i] : 2, ' ');
    writeln;
  end;
end.

{ Free Pascal }

procedure Println(a:array of integer);
var
  i:integer;
begin
  for i:=0 to Length(a)-1 do Write(a[i],' ');
  Writeln
end;

procedure Ex1(var a:array of integer; var nn,np:integer);
var
  i:integer;
begin
  nn:=0; np:=0;
  for i:=0 to Length(a)-1 do
    if a[i]<0 then begin a[i]:=0; Inc(nn) end
    else
      if a[i]>0 then begin a[i]:=1; Inc(np) end
end;

var
  a:array of integer;
  i,n,kp,kn:integer;
begin
  Randomize;
  Write('Количество элементов: '); Read(n);
  SetLength(a,n);
  for i:=0 to n-1 do a[i]:=Random(41)-20;
  Println(a);
  Ex1(a,kn,kp);
  Writeln('Отрицательных ',kn,', положительных ',kp);
  Println(a)
end.

Во вложении - пример работы программы.