[lxa85]

из а части сделал 1 и 2 номер »

исходники в студию.

а с остальными нет времени возиться »

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

[Delirium]

А мы ничего писать не будем.

а с остальными нет времени возиться »

А у нас времени вагон, конечно.
Читаем правила форума, и эту тему. Затем добро пожаловать.

[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.

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