Дан двумерный массив. найти столбец с максимальной и минимальной суммой элементов.

Begin var a: array [,] of integer : = ( (1, 10, 100), (1, 10, 200), (1, 9, 100), (1, 9, 100)); var max : = integer.minvalue; var countmax : = 0; var min : = integer.maxvalue; var countmin : = 0; var counter : = 0; for var j : = 0 to a.getlength(1) - 1 do begin counter += 1; var c : = 0; for var i : = 0 to a.getlength(0) - 1 do begin c += a[i, j] end; if max < c then begin max : = c; countmax : = counter; end; if min > c then begin min : = c; countmin : = counter; end; end; writeln('столбик с наибольшей суммой - ', countmax); writeln('столбик с наименьшей суммой - ', countmin); end.

Последнее проверяемое число 7ff, поскольку большее число при удвоении будет четырехзначным, нарушая условие . procedure analyze(n: integer; var sd: integer; var has2: boolean); {для заданного целого n возвращает:   sd - сумму цифр в шестнадцатиричном представлении;   has2 - true, если среди шестнадцитиричных цифр имеется хотя бы одна двойка.} const   mask = $00f; var   i, r: integer; begin   has2 : = false;   sd : = 0;   for i : = 1 to 3 do   begin       r : = (n and mask);       has2 : = (has2 or (r = 2));       sd : = sd + r;       n : = (n shr 4);   end end; function issuitable(n: integer): boolean; {проверяет, удовлетворяет ли число n набору условий} var   s1, s2: integer;   has2, stub: boolean; begin   analyze(n, s1, has2);   analyze(2 * n, s2, stub);   issuitable : = ((s1 = s2) and has2) end; var   i, n: integer; begin   n : = 0;   for i : = $100 to $7ff do       if issuitable(i) then n : = n + 1;   writeln('найдено чисел- ', n) end. результат выполнения программы: найдено чисел- 23