циклы и работа с массивами

[stepan-rkt]

помогите пожалуйста решить задачу желательно с пояснением что бы я наконец то понял очень на вас рассчитываю...

Задав одномерный массив целочисленных данных А в Integer, реализовать обработку массива, как указано в
варианте. Длина массива N <= 20. Исходные данные задать самостоятельно, учитывая формат
элементов массива A. Исходные данные должны вводиться с проверкой на область допустимых
значений. Тип результата определяется из контекста задачи.
Найти произведение последних L отрицательных элементов в массиве A={a[i]}.

[Alex11223]

в массиве A={a[i]}.

Где?оО В оригинале точно так было записано?)

[stepan-rkt]

да именно так помогите плиз...

[Stilet]

Что-то вроде такого:

 var a:array[1..20] of integer;k,pr,l,i:integer;
begin
 l:=3;pr:=1;
 for i:=1 to 20 do begin
  a[i]:=50-random(100);write(a[i]:5);
 end; writeln;
 i:=20;
 while (l>0)and(i>0) do begin
  if a[i]<0 then begin pr:=pr*a[i];dec(l);end;
  dec(i);
 end;write(pr);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.