1. Определи значения переменных а и b после выполнения фрагмента алгоритма
1) 3, 12 2) 5.10 3)2, 11 4) 10.5

а := 5* 11+6
b :=(a div 10)+ 5:
a =(b mod 10)+ 1:

Ну тут сложно что-либо разжевать, ибо это основа основ.

Если в более доступной форме, то начнем с простого:

1. Бит - минимальная единица размерности, т.е меньше нет.

2. Последующие размерности можно перевести как в биты, так и в другие размерности.

а) 1 байт = 2^3, т.е 1 байт равен 8 битам. В данной букве мы получаем 2^13, потому что в конце цепочки имеем Кбайты (килобайты), а 1 кбайт = 2^10 байт. В итоге получается, что 1 Кбайт = 2^13 бит. Мы просто сложили 2^3 и 2^10.

б) Все тоже самое, только в данном случае у нас Мбайты (мегабайты), т.е 2^10 кбайт. Сложив все степени мы видим, что 1 Мбайт = 2^23 бит (2^10 * 2^10 * 2^3)

в) Делается так же по аналогии с предыдущими.

Var a : array [1..3] of array [1..3] of integer;
     i,j : shortint;
     c1,c2,s1,s2 : integer;

begin
    a[1][1]:=-10;
    a[1][2]:=20;
    a[1][3]:=13;
    a[2][1]:=-22;
    a[2][2]:=11;
    a[2][3]:=-5;
    a[3][1]:=4;
    a[3][2]:=12;
    a[3][3]:=-8;
    s1:=0; s2:=0; c1:=0; c2:=0;
    for i:=1 to 3 do begin
         for j:=1 to 3 do begin
               if a[i][j]>0 then begin
                     s1:=s1+a[i][j];
                     inc (c1);
               end else begin
                     s2:=s2+a[i][j];
                     inc (c2);
               end;
         end;
    end;
    writeln (s1/c1:0:0);
    writeln (s2/c2:0:2);
end.