Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Массивчеги

Автор: ZloY_ZusuL 18.10.2006, 00:06

Приветствую!
Передо мной возникла такая задача: Необходимо найти произведение L отрицательных элементо (L соответственно вводим с клавы).Язык Паскаль
Произведение отрицательных элементов находится легко,

Код


program pr2;
        const n=20;
        type mas=array [1..n] of integer;
        var A:mas;
            L,p,i:integer;
begin
Writeln('BBEduTE MACCuB');
 for i:=1 to n do
  readln(A[i]);
WriteLN('BBeduTE L');
readln(L);
  p:=1;
   for i:=1 to n do
    if A[i]<0 then
    begin
     p:=p*a[i];
    end;
Writeln('p=',p);
end.

а вот как отсеять ненужные мне L элементы не пойму никак. Объясните новичку.
И ещё вопрос.Как вывеси полученный массив на экран. Стандартное Writeln(A) не работает

Автор: Coder 18.10.2006, 02:22

вывод массива на экран

Код


 for i:=1 to n do
  writeln(A[i]);

найти только L отрицательных элементов:

Код


  readln(L);
  p:=1;
   for i:=1 to n do
    if (A[i]<0) and (L>0) then
    begin
     p:=p*a[i];
     dec(L);
    end;

Автор: ZloY_ZusuL 18.10.2006, 13:12

Спасибо! Но проблема не решена, этот алгоритм отсеивает ненужные отрицательные элементы справа, а должен слева.

Автор: XupyprMV 18.10.2006, 13:16

Код


p:=1;
for i:=n downto 1 do
 if (A[i]<0) and (L>0) then
  begin
   p:=p*a[i];
   dec(L);
  end;