Задачи на массивы

[Hichcog]

1)Составить программу вычисления произведения элементов массива Х, больших 5, если массив состоит из 7 элементов, введенных с клавиатуры. В случае отсутствия таких элементов вывести сообщение на экран.

2)Введите с клавиатуры одномерный массив D(N), элементами которого являются положительные и отрицательные целые числа. Сформируйте новый массив В(V) из положительных элементов и С(M) из отрицательных элементов. В массиве D(V) определите максимум, а в массиве C(M) – минимум.
3)Ввести двумерный массив А(N,N). Составить программу подсчета количества элементов массива, совпадающих с минимальным элементом.

Помогите разобраться с задачами, вот мои наброски:
1)

 program massiv;
const N=7;
var i,c, p:integer;
x:array [1..N] of integer;
begin
p:=1;
c:=0;
 for i:=1 to n do
 begin
 writeln ('vvedite ',i, ' element');
 read (x[i]);
 if x[i]<5 then writeln('net')
 else p:=p*(x[i]);
 if x[i]<5 then c:=c+1;
 end;
readln;
if c=7 then writeln('takix znachenii net');
writeln('proizv=',p);
readln;
end.

2)

program massiv;
const n=4  ;
var i,m,v:integer;
d,b,c:array [1..n] of integer;

begin

 for i:=1 to n do
 begin
 writeln('vvedite ' ,i,' element');
 readln(d[i]);
 end;

 m:=0;
 v:=0;
  for i:=1 to n do
  begin

   if d[i]<0 then
   begin
     c[i]:=d[i];
     m:=m+1;
   end;

  if d[i]>0  then
  begin
    b[i]:=d[i];
    v:=v+1;
  end;
 end;

writeln(' mas otr chis:');

for i:=1 to m do
begin
writeln(c[i]);
end;

writeln('massiv pologit chisel:');

for i:=1 to v do
begin
writeln(b[i]);
end;
readln;
end.

3)

program matrix;
var A: array [1..10, 1..10] of real;
i,j,n,m,kol:integer;
min:real;
begin
writeln('vvedite kolichectxo ctrok  matrix');
read(n);
writeln('vvedite kolichectx ctolbcov  matrix');
read(m);
writeln('vvedite elementov  matrix');
for i:=1 to n do
 for j:=1 to m do read(a[i,j]);
 min:=a[1,1];
 for i:=1 to n do
 for j:=1 to m do
 if a[i,j]<min then min:=a[i,j];
 kol:=0
 for i:= 1 to n do
	      for i:=1 to m do
	      if a[i,j]=min then kol:=kol+1;
	      writeln ('kolichectvo elementov ravnux min',kol);
	      end.

[puporev]

{1)Составить программу вычисления произведения элементов массива Х, больших 5,
если массив состоит из 7 элементов, введенных с клавиатуры.
В случае отсутствия таких элементов вывести сообщение на экран. }

program massiv;
const N=7;
var i,c:byte;
    p:real; {может получиться большое число}
    x:array [1..N] of integer;
begin
p:=1;
c:=0;
for i:=1 to n do
 begin
  write ('x[',i,']=');
  readln(x[i]);
  if x[i]>5 then
   begin
    p:=p*(x[i]);
    c:=1;
   end;
end;
if c=0 then writeln('znachenii >5 net')
else writeln('proizv=',p:0:0);  {выводим как целое}
readln;
end.

[puporev]

{2)Введите с клавиатуры одномерный массив D(N),
элементами которого являются положительные и отрицательные целые числа.
Сформируйте новый массив В(V) из положительных элементов и С(M) из отрицательных элементов.
В массиве D(V) определите максимум, а в массиве C(M) – минимум. }

program massiv;
const n=4 ;
var i,m,v:integer;
    d,b,c:array [1..n] of integer;
begin
for i:=1 to n do
 begin
  write('d[',i,']=');
  readln(d[i]);
 end;
m:=0;
v:=0;
for i:=1 to n do
 begin
  if d[i]<0 then
   begin
    m:=m+1;
    c[m]:=d[i];
   end;
  if d[i]>0 then
   begin
    v:=v+1;
    b[v]:=d[i];
   end;
 end;
if m=0 then writeln('net otr chisel')
else
 begin
  writeln(' mas otr chis:');
  for i:=1 to m do
  write(c[i],' ');
  writeln;
  writeln;
 end;
if v=0 then write('net pologit chisel')
else
 begin
  writeln('massiv pologit chisel:');
  for i:=1 to v do
  write(b[i],' ');
 end;
readln;
end.

[puporev]

{3)Ввести двумерный массив А(N,N). Составить программу подсчета количества элементов массива,
совпадающих с минимальным элементом. }

program matrix;
var A: array [1..10, 1..10] of integer;{искать равные вещественные числа та еще задача}
    i,j,n,kol:integer;
    min:integer;
begin
write('vvedite razmer matrix n='); {по условию массив NxN}
readln(n);
writeln('vvedite elementov matrix');
for i:=1 to n do
for j:=1 to n do read(a[i,j]);
readln;
min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
writeln('min=',min);
kol:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=min then kol:=kol+1;
writeln ('kolichectvo elementov ravnux min=',kol);
end.

[Hichcog]

Большое спасибо за помощь!