Решить в паскале перевести заданное количество байтов в биты, килобайты, мегабайты.

Program calculator; var b, kb, mb, bt: real; begin  write('введите количество байтов: '); readln(b); {bytes}    kb: =b/(1 shl 10); {kbytes}  mb: =b/(1 shl 20); {mbytes}  bt: =b*8; {bits}  writeln(bt: 1: 2, ' - битов ',kb: 1: 2, ' - килобайтов ',mb: 1: 2, '- мегабайтов ');   end.

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.

var  a : array [1..10] of longint;   i,j,max,ans : longint; begin  for i: =1 to 10 do      begin          max: =-maxlongint;           for j: =1 to 10 do              begin                  read(a[i]);                   if a[i]> max then max: =a[i];               end;           ans: =ans+max;           writeln;         end;   writeln(ans); end.

и этот массив не квадратный. такие массивы называют двумерными массивами.