Доброе утро,Двумерные массивы

[Natalya17]

прошу написать 2 задачи буду очень благодарна:
1)Дан двумерный массив 5х6 заполненный целыми числами с клавиатуры.
Сформанивать одномерный массив,каждый элемент которого равен наибольшему по модулю элементусоответствующего столбца.
2)дан двумерный массив NxM заполненный случайными числами.Определить,если в данном массиве строка в которой имеется два максимальных элемента всего массива.
Всем кто сделает спасибо за помощь! и бесплатно если можно

[ROMA2PVT]

поиском воспользуйтесь.и будет вам счастье.

[Stilet]

   var a:array[1..5,1..6] of integer;
    b:array[1..6] of integer;
    q,w:integer;
begin

{1)Дан двумерный массив 5х6 заполненный целыми числами с клавиатуры.
Сформанивать одномерный массив,каждый элемент которого
равен наибольшему по модулю элементусоответствующего столбца.}
   for q:=1 to 5 do begin
    for w:=1 to 6 do begin
     a[q,w]:=random(20);write(a[q,w]:5);
    end; writeln;
   end;
   writeln;
   for q:=1 to 6 do begin b[q]:=-MaxInt;
    for w:=1 to 5 do begin
     if b[q]<a[w,q] then b[q]:=a[w,q];
    end; write(b[q]:5);
   end;
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

[Natalya17]

а вторую незнаете как делать, да?

[IT-man]

а вторую незнаете как делать, да?

знаем - стучите - аська под ником-недорого!

[Natalya17]

можно бесплатно

[kakawkin]

зделаю вторую задачу за 20 рублей ( как раз на пачку сигарет )
ICQ: 596694185

[kakawkin]

зделаю вторую задачу за 20 рублей ( как раз на пачку сигарет )
ICQ: 596694185

[Natalya17]

Сначало задачку =)