Организация циклов и работа с одномерными массивами

[Zenit10]

Прошу помощи в решении данной задачи
Integer.
Найти произведение последних L отрицательных элементов в массиве A={a[i]}.
Ничего понять не могу как решать её.Помогите плиз.
Ну точто заполнить массив рандомно это понятно а с помошью какой футкции или процедуры зделать одбор последних отрицательных элементов незнаю.

[puporev]

Отсортируй массив по убыванию. Все отрицательные элементы соберутся в конец. Затем

P:=1;
for i:=L to n do
   begin
     P:=P*a[i];  
  end;

[Zenit10]

Спасибо большое.

[Zenit10]

Вот что получилось но прога не работает не пойму из-за чего.
Uses crt;
const n=10;
Var
a:array[1..n] of integer;
i,j: byte;
b,l:word;
p: integer;
Begin
clrscr;
randomize;
begin
for i:=1 to n do
a[i]:=random(101)-50;
write (a[i],' ');
writeln;

end;
for j:=1 to n-1 do
for i:=1 to n-j do
if a[i] < a[i+1] then
begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
writeln ('упорядоченный масив');
for i:=1 to n do
write (a[i],' ');
writeln;
p:=1;
for i:=(n-l) to n do
begin
p:=p*a[i];
write(p);
end;
End.
Вот так у меня получилось помогите додумать что не так.

[_Dmitry]

Ну, а L чему равно, сколько цифр перемножать?

Uses crt;
const n = 10;
Var
  a: array[1..n] of integer;
  i,j,b,p,L: integer;
Begin
  clrscr;
  L:=3; {кол.перемнож.цифр}
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(101)-50;
      write(a[i]:4);
    end;
  writeln;
  for j:=1 to n-1 do
    for i:=1 to n-j do
      if a[i] < a[i+1] then
        begin
          b:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=b;
        end;
  b:=0;
  writeln('упорядоченный масив');
  for i:=1 to n do
    begin
      if (b = 0) and (a[i] < 0) then b:=i;
      write(a[i]:4);
    end;
  writeln;
  b:=n-b+1; {кол.отрицат.цифр}
  if L > b then L:=b;
  p:=1;
  for i:=n-L+1 to n do p:=p*a[i];
  writeln(p);
  readln;
End.

Хотя, наверно, сортировать массив неправильно. Т.к. мы найдем произведение L наибольших отрицательных элементов. А по условию нужно перемножить L последних.

[Zenit10]

А я недогоню почему L=3 там же написано последних L отрицательных элементов их может быть 5,6, или 8 ваще как массив введётся.

[_Dmitry]

Я понял так, их всего может быть 5,6, или 8, а нужно вычислить произведение L последних.
Например, массив: 5 -8 3 8 7 6 -2 4 -3 9 4 -6 2, L=3, то перемножать нужно последние 3 отрицательные: -6, -3, -2.
Вот код для этого

uses crt;
const n = 10;
var
  a: array[1..n] of integer;
  i,j,p,L: integer;
begin
  clrscr;
  L:=3; {кол.перемнож.цифр}
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(101)-50;
      write(a[i]:4);
    end;
  writeln;
  p:=1; j:=0;
  for i:=n downto 1 do
    if (a[i] < 0) and (j < L) then
      begin
        p:=p*a[i];
        j:=j+1;
      end;
  writeln(p);
  readln;
end.

[Zenit10]

Всё понял спасибо огромнейшее.

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

[_Dmitry]

В программе перемножаются только отрицательные числа. Если их 2 - будут перемножены только 2, если их 7 - будут перемножены 3 последних. Если отрицательных чисел нет, то ничего перемножаться не будет - результат будет равен 1.

[Zenit10]

ок. даже незнаю как тебя благодарить