PascalABC. Задачки

[0_AleX_0]

Добрый день. Помогите написать программы в паскале абс
а) 1. Составьте программу упорядочения всех элементов по возрастанию матрицы A(N, N).
2. Составьте программу вычисления среднего арифметического каждого столбца над главной диагональю (диагональ включать) матрицы B(N, N) и запишите данные значения в последнюю строку данной матрицы.
3*. Составьте программу удаления строки и столбца, которые содержат максимальный элемент матрицы C(N, N).
-------------------------
б) 1. Составьте программу вычисления суммы отрицательных элементов матрицы A(N, N).
2. Составьте программу вычисления произведения положительных элементов матрицы B(N, N)
3*. Составьте программу вычисления суммы элементов третьего столбца матрицы C(N, N).
Времени не хватает на все. из а части сделал 1 и 2 номер. работает точно,а с остальными нет времени возиться, надеюсь на помощь сие народа =)

[lxa85]

из а части сделал 1 и 2 номер »
исходники в студию.
а с остальными нет времени возиться »
в любом случае от вас нужно словесное описание решения + пример решенного задания "руками".
А то ведь мы ой чего только не понапишем!

[Delirium]

А мы ничего писать не будем.
а с остальными нет времени возиться »
А у нас времени вагон, конечно.
Читаем правила форума, и эту (http://forum.oszone.net/post-1608065-3.html) тему. Затем добро пожаловать.

[0_AleX_0]

пардооон. про тему забыл. По двумерным массивам.
а) 2 задача:
Var
b : Array[1..20,1..20] of Real;
i,j,n : Integer;
s : Real;
Begin
Write ('n=');
Readln(n);
Writeln ('Введите элементы матрицы B[',n,',',n,']');
For i:=1 to n do
For j:=1 to n do
begin
Write('b[',i,',',j,']=');
Readln(b[i,j]);
end;
Writeln ('Сформирована матриц B[',n,',',n,'] :');
For i:=1 to n do
begin
For j:=1 to n do
Write(b[i,j]:8:2);
Writeln;
end;
For j:=1 to n do
begin
s:=0;
For i:=1 to j do
s:=s+b[i,j];
b[n,j]:=s/j;
end;
Writeln ('После преобразования матрица B[',n,',',n,'] имеет вид :');
For i:=1 to n do
begin
For j:=1 to n do
Write(b[i,j]:8:2);
Writeln;
end;
End.

первую из а я в тетради писал.