Помогите с программой

[VadimPascal]

Задано матрицу K [10x10]. Найти и вывести максимальные элементы каждого столбца

[Aleksandr H.]

http://taskcode.ru/matrix/max-columns

[R71MT]

VadimPascal, молодчик!
Дал задание, а дальше сами разбирайтесь...
У тя или NET ограниченный, или ты сам не знаеш, чё хочеш...

[newerow1989]

var k:array[1..10,1..10] of integer;
    i,j,m:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         k[i,j]:=Random(21);
         Write(k[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 10 do
   begin
      m:=k[1,j];
      For i:=2 to 10 do
         If m<k[i,j] then
            m:=k[i,j];
      Write(m,'  ');
   end;
   Writeln;
   Readln;
end.

image001.gif