Рандомний масив.Оч нужно.

[kaznachey1993]

16. Определить сумму и количество отрицательных элементов, размещенных под главной диагональю матрицы.
4. Найти в каждой строке наибольший элемент и поменять местами с элементом главной диагонали.
8. Упорядочить по возрастанию строку с наименьшей суммой элементов.
Оч нужно,помогите пожалуйста!

[McFrey]

4.

Program Obmen;
 Var N, I, J, Max,Ind, Vsp : Integer;A : Array [1..15, 1..15] Of Integer;
 Begin
  WRITE('Введите количество элементов в массиве: '); READLN(N);
 FOR I := 1 TO N DO
  FOR J := 1 TO N DO
  Begin
   WRITE('A[', I, ',', J, '] '); READLN(A[I, J])
  End;
 FOR I := 1 TO N DO
 Begin
  Max := A[I, 1]; Ind := 1;
   FOR J := 2 TO N DO
      IF A[I, J] > Max THEN
       Begin
        Max := A[I, J]; Ind := J
       End;
   Vsp := A[I, I]; A[I, I] := A[I, Ind]; A[I, Ind] := Vsp
  End;
     FOR I := 1 TO N DO
      Begin
       WriteLn;
       FOR J := 1 TO N Do Write(A[I, J] : 3);
      End; WriteLn
 End.

____________________
ткни весы!!!!!=)сделай приятное