Дана матрица размера 5х10. найти максимальное значение в каждом столбце.

Program z1; var a: array[1..100,1..100] of integer; i,j,max: integer; begin for i: =1 to 5 dp for j: =1 to 10 do read(a[i,j]); for j: =1 to 10 do begin max: =a[1,j]; for i: =2 to 5 do if a[i,j]> max then max: =a[i,j]; writeln(a[i,j]); end; end.

Выполняя алгоритм, получаем следующий результат (15 итераций) 1. 0..65534 -> 32767 2. 0..32766 -> 16383 3. 0..16382 -> 8191 4. 0..8190   -> 4095 5. 0..4094   -> 2047 6. 2048..4094 -> 3071 7. 2048..3070 -> 2559 8. 2560..3070 -> 2815 9. 2816..3070 -> 2943 10. 2944..3070 -> 3007 11. 2944..3006 -> 2975 12. 2976..3006 -> 2991 13. 2992..3006 -> 2999 14. 3000..3006 -> 3003 15. 3000..3002 -> 3001если лень перебирать вручную, можно воспользоваться программойvar k,l,r,x,f: integer; beginf : = 3001; l : = 0; r : = 65534; x : = (l + r) div 2; k : = 1; while (x < > f) and (l < r) do  begin  writeln(k,' ',l,' ',r,' ',x);   k : = k + 1;   if f < x then r : = x - 1    else l : = x + 1;   x : = (l + r) div 2  end; writeln(k,' ',l,' ',r,' ',x); end.

1. var x,s: integer; begin read(x); s : = 0; while x > 0 do   begin   if x mod 10 < 6 then s : = s + 1; {здесь была ошибка}   x : = x div 10   end; write(s) end.2.var x,s: integer; beginread(x); s : = x mod 10; while x > 10 do  x : = x div 10; write(x + s)end.3.var x,a,b: integer; beginread(x); a : = x mod 10; b : = x mod 10; while x > 0 do      begin      if x mod 10 > a then a : = x mod 10;       if x mod 10 < b then b : = x mod 10;       x : = x div 10;       end; write(a + b)end.