VPF::Массивчеги - Форум программистов

ZloY_ZusuL

Дата 18.10.2006, 00:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 27.9.2006

Репутация: нет
Всего: 1

Приветствую!
Передо мной возникла такая задача: Необходимо найти произведение 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) не работает

Это сообщение отредактировал(а) ZloY_ZusuL - 18.10.2006, 00:08

Coder

Дата 18.10.2006, 02:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: нет
Всего: 11

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

Код


 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 27.9.2006

Репутация: нет
Всего: 1

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

Это сообщение отредактировал(а) ZloY_ZusuL - 18.10.2006, 13:13

XupyprMV

Дата 18.10.2006, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 16.10.2006
Где: Сыктывкар, Россия

Репутация: нет
Всего: нет

Код


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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »