Помогите доделать задачу я залип. Опции

[KuznecSeti]

Народ вот такая задача точнее две:

1) Составить подпрограмму формироваия вектора из максимально отрицательных элементов столбцов вещественной матрицы. С помошью этой подпрограммы сформировать указанные вектора из матрицы А(-3:3,-4:2).

Мои соображения по этой задаче.

program kt2;          
uses crt;
var
     mas:array[-3..3,-4..2] of integer;
     i,j,g:integer;
     max,min:real;
     m,k,l:integer;
 begin
      clrscr;
      for i:=-3 to 3 do
      for j:=-4 to 2 do
      begin
        writeln('vvedite chislo');
        read(mas[i,j]);
 end;
     max:=mas[2,-4];
     min:=mas[2,-4];
for i:=-3 to 3 do
for j:=-4 to 2 do
    begin
         if mas[i,j]<0 and mas[i,j] then
            begin
            max:=mas[i,j];
            k:=i;
            end;
         if mas[i,j]>0 and mas[i,j] then
    begin
    min:=mas[i,j];
    l:=i
    end;
   end;
for j:=-4 to 2 do
    begin
         m:=mas[k,j];
         mas[k,j]:=mas[l,j];
         mas[l,j]:=m;
    end;
  writeln('max',max);
 read(g);
end.

помогите что тут не так как сюда подпрограмму вписать какая она должна быть?



2) С использованием оператор-функции для вычисления
3
X 2
Y(X)=---(1+X ) (игрек от икс равную икс в 3 степени деленое на 3 и умноженое на скобки в скобках один
3 3
плюс икс в квадрате) составить подпрограмму вычисления Z(X)=1-Y(X-0,3) для значений от Xначал до Xконеч с шагом в h резуьтат вывести на экран в виде таблицы
______________
|X |
|_____|________
|Y(X) |
|_____|________
|Z(X) |
|_____|________



Мои соображения по этому поводу

Program kt3;
Var
a,b,h:real;
k:integer;
y,z:array[1..100] of real;
begin
writeln('Vvedite nach. i konech. znach.');
readln(a,b,h);
k:=(b-a)/2+2;
for i:=1 to k do
begin
y[i]:=((sqr(a-0.3)*(a-0.3)/3)*(1+sqr(-0.3)));
z[i]:=1-(sqr(y)*y);
a:=a+h;
end;
write('|',y,'|');
write('|',y,'y');
end.

А с этой я ваще в панике незнаю куда сюда подпрограмму пихать и чего тут ваще еще нужно.
Спасайте!!!!!

Сообщение отредактировано: KuznecSeti - 16.05.2007 14:54