Работа с двумерными массивами

[DEADPOOLHaKKER]

Дана матрица A[1:5;1:6]. Найти максимальный элемент в каждом столбце и сформировать из них массив. Если наибольший из этих элементов <100, то элементы полученного массива упорядочить по возрастанию. Иначе из полученного массива удалить максимальный элемент. Надо как то простецки составить))))
И вот Дана матрица C [1:6;1:5]. Если максимальный элемент матрицы больше 5, то в каждой строке матрицы все элементы разделить на минимальный элемент этой строки. Вывести на печать координаты и величину максимальных элементов в каждой строке. Иначе из четных строк матрицы сформировать вектор B и получить сумму его элементов.
Благодарю зарание вас о великие программисты)))

[DEADPOOLHaKKER]

Естественно, добродушную душу ищу, сам бы написал, да некоторых вещей не понимаю(

[Stilet]

И даже не сможешь написать ввод матрицы?

[Alex11223]

сам бы написал, да некоторых вещей не понимаю(

Ну дык и спрашивай "некоторые вещи", а не просто выкладывай задание ожидая что кто-то полностью решит его и выложит код для копипаста.

[DEADPOOLHaKKER]

Program Lab9;
  Uses WinCrT;
  Var
        A:Array [1..5,1..6] Of Integer;
        B:Array[1..6] Of Integer;
        i,j:Byte;
        maxB:Integer;
Begin
Randomize;
For i:=1 To 5 Do
  For j:=1 To 6 Do
    A[i,j]:=Random(100)-30;
Writeln('Массив А');
For i:=1 To 5 Do
  Begin
    Writeln;
    For j:=1 To 6 Do
      Write(A[i,j]:4);
  End;
Writeln;
For j:=1 To 6 Do
  Begin
    B[j]:=A[1,j];
    For i:=2 To 5 Do
      If A[i,j]>B[j]  Then B[j]:=A[i,j];
  End;
Writeln('Вектор В из максимальных элементов столбцов');
For j:=1 To 6 Do
  Write(B[j]:4);
Writeln;
maxB:=B[1];
For i:=1 To 6 Do
  If B[i]>maxB Then maxB:=B[i];
Writeln('Max В=',maxB:2);
If maxB>100
  Then
   Begin
     Упорядочение вектора В
   End
  Else
   Begin
    Удаление максимального элемента вектора В
   End


End.

[Alex11223]

А в чем вопрос-то?

Если не знаете как упорядочить, то гуглите любой алгоритм сортировки и примеры его реализации. Например, пузырьковая сортировка (bubble sort) проще всего.
https://www.google.com/search?q=%D0%...A%D0%B0+pascal
https://en.wikibooks.org/wiki/Algori...le_sort#Pascal (внизу простая версия)

А для удаления надо просто сдвинуть все элементы (b[i] := b[i+1]) начиная с индекса удаляемого.
Только еще надо завести переменную для размера массива (6 изначально) и в циклах использовать ее вместо просто числа 6, и после удаления уменьшить на 1.