СРОЧНО!!!
Pascal
1) Дан двумерный массив размером 5×6, заполненный случайными числами из интервала [-10;10]. Сформировать одномерный массив, каждый элемент которого равен произведению чётных положительных элементов соответствующего столбца.
2) Дан двумерный массив размером n×m, заполненный случайным образом. Определить, есть ли в данном массиве строка, в которой ровно два отрицательных элемента. Если есть, то вывести номер этой строки.
3)Заполнить массив 5×5 по правилу (см. фото):​

1)const N=5;

     M=6;

var

 a: array [1..N,1..M] of integer;

 b: array [1..M] of integer;

 i,j:integer;

begin

 for i:=1 to N do

   begin

     b[i]:=1;

     for j:=1 to M do

       begin

         a[i,j]:=random(21)-10;

         write(a[i,j]:4);

       end;

     writeln;

   end;

 b[M]:=1;

 writeln;

 for j:=1 to M do

   begin

     for i:=1 to N do

       begin

         if (a[i,j]>=0) and (a[i,j] mod 2=0) then

         b[j]:= b[j]*a[i,j];

       end;

     write(b[j]:4);

   end;

end.

2)const N=5;

     M=6;

var

 a: array [1..N,1..M+1] of integer;

 i,j:integer;

begin

 for i:=1 to N do

   begin

    a[i,m+1]:=0;

     for j:=1 to M do

       begin

         a[i,j]:=random(51)-25;

         write(a[i,j]:4);

         if a[i,j]<0 then inc(a[i,m+1]);

       end;

     writeln;

   end;

 writeln;

 for i:=1 to N do

   if a[i,M+1]=2 then write(i:4);

end.

3) Порешай самостоятельно