массив, на языке паскаль

[Данна]

надо составить программу на задачу по массиву:
Задан целочисленный одномерный массив a из n элементов. Найти номер последнего минимального элемента среди чётных положительных элементов, лежащих правее первого отрицательного элемента.

[BDA]

uses CRT;

const
n=10;

var
a:array [1..n] of integer;
i,pos,min:integer;

BEGIN
randomize;
for i:=1 to n do
  a[i]:=random(100)-50;
for i:=1 to n do
  write(a[i],' ');
writeln;

i:=1;
while (a[i]>=0) and (i<=n) do
  inc(i);
min:=32767;
pos:=-1;
for i:=i to n do
if (a[i]<=min)and(a[i]>0) then
  if a[i] mod 2=0 then
    begin
      pos:=i;
      min:=a[i];
     end;
if pos>0 then
  writeln(pos)
else
  writeln('Not found');
readln;
END.

[Jlovenpk1]

:D Дал задание получил решение, жесть =) из 10 человек, 2-3 программисты. Остальные не кто.

[Stilet]

Остальные не кто.

Прежде чем флудить русский хотя бы выучи.