Помогите пожалуйста. Паскаль

1: (вроде так пойдет)
надеюсь не перепутал строки со столбцами при удалении их в условии if. нет возможности проверить
var D:array[1..6,1..4] of real;
i,j:byte; s:real;
begin
writeln('vvedite matricy 6x4 elementov');
for i:=1 to 6 do
for j:=1 to 4 do
read(D[ i,j]);
writeln('poly4ena matrica:');
for i:=1 to 6 do
begin
for j:=1 to 4 do
write(' ',D[ i,j]);
writeln;
end;
s:=0;
for i:=1 to 6 do
for j:=1 to 4 do
if (i <> 4 and j <> 2) then
s:= s + D[ i,j];
writeln('sum=',s);
end.

2: (вот что-то вроде того)
var A:array[1..5,1..5] of real;
i,j:byte; k, k_s:integer;
begin
writeln('vvedite matricy 5x5 elementov');
for i:=1 to 5 do
for j:=1 to 5 do
read(A[ i,j]);
writeln('poly4ena matrica:');
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(' ',A[ i,j]);
writeln;
end;
k:=0;
for i:=1 to 5 do
begin
k_s:=0;
for j:=1 to 5 do
if (A[ i,j] < 0) then k_s:= k_s+1;
if (k_s > 0) then //(здесь проверяется наличие хотябы одного отриц, , если поставить 1 вместо 0, то будет учитывать те где 2 и больше отриц, и т. д. )
k:=k+1;
end;
writeln('k=',k);
end.

3: (мда)
var D:array[1..4,1..5] of real;
i,j, mi, mj:byte; min:real;
begin
writeln('vvedite matricy 4x5 elementov');
for i:=1 to 4 do
for j:=1 to 5 do
read(D[ i,j]);
writeln('poly4ena matrica:');
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(' ',D[ i,j]);
writeln;
end;
mi:=1;
mj:=1;
min = D[mi,mj];
for i:=1 to 4 do
for j:=1 to 5 do
if (min > D[i,j]) then
begin
min := D[i,j];
mi:=i;
mj:=j
end;

writeln('min =',min,' -- D[', mi, ' , ', mj, ']');
end.

1) берете матрицу и удаляете 4-ую строку и второй столбец.. . а еще лучше - заполняете нулями - тогда можно работать с тем же массивом.. . а потом считаете что надо, обращаясь к необходимым ячейкам.. .
2) вложенным циклом пробегаетесь по матрице и если встретился один элемент массива отрицательный - тогда увеличиваете счетчик и меняете ключ с true на false, чтоб в этой строке больше не считало
3) берете максимальное число - например 10000000 - и в цикле сравниваете его с элементом массива.. . if ( min > arrs [ n, m ] ) then begin min = arrs [ n, m ]; x = n; y = m; end; в конце программы выводите ваши данные