2. задать двумерный массив (4х4) случайными значениями от 12 до 18 включительно. вывести сумму значений элементов каждого столбца матрицы. 3. задать двумерный массив (7х7) случайными значениями от 12 до 18 включительно. в каждом столбце матрицы найти количество элементов, значения которых меньше 14. 4. задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 столбца со вторым.

Program gt2; var i,j,s: integer; a: array[1..4,1..4]of integer; begin randomize; for i: =1 to 4 do for j: =1 to 4 do a[i,j]: =random(7)+12; for i: =1 to 4 do begin s: =0; for j: =1 to 4 do s: =s+a[j,i]; writeln(s); end; end.program gt3; var i,j,s: integer; a: array[1..7,1..7]of integer; beginrandomize; for i: =1 to 7 dofor j: =1 to 7 doa[i,j]: =random(7)+12; for i: =1 to 7 dobegins: =0; for j: =1 to 7 doif(a[j,i]< 14)then s: =s+1; writeln(s); end; end.program gt4; var i,j,p: integer; a: array[1..3,1..3]of integer; beginfor i: =1 to 3 dofor j: =1 to 3 doread(a[i,j]); for i: =1 to 3 dobeginp: =a[i,1]; a[i,1]: =a[i,2]; a[i,2]: =p; end; for i: =1 to 3 dobeginfor j: =1 to 3 dobeginwrite(a[i,j],' '); end; writeln; end; end.

Var i, a, s: integer; begin       readln(a);       for i : = a to 500 do           s : = s + i;       writeln(s); end.2)  var i, a, s, c, b: integer; begin      readln(a, b);       for i : = a to b do      begin          s : = s + i;           c : = c + 1;       end;       writeln(s / c: 4: 2); end.3)const n=10; var i, b, s: integer;     a: array [0..n] of integer; begin      readln(b);       for i : = 0 to n do a[i] : = random(9000);       for i : = 0 to n do          if (a[i] < b) then s : = s + i;       for i : = 0 to n - 2 do          if (a[i+1] = b) then  writeln('(', a[i], '; ', a[i+2], ')');       writeln(s); end.=)

Обьясняется различие в размерах файлов тем, что разные кодировки используют разное кол-во памяти, к примеру обычный *.txt файл хранит просто набор символов, а *.rtf уже хранит такие характеристики как размер шрифта цвет выравнивание и много других параметров. разные расширения текстовых данных сделаны для хранения максимального кол-ва данных в наименьшем возможном ко-во памяти (txt), и наоборот хранения текста в исходном виде с исходными характеристиками (rtf). ну а размеры файлов можешь и сам посмотреть сделав эту лабу.  бывают же ленивые