VPF::[Pascal] Произведение неотрицательных элементов

Alex103

Дата 27.10.2006, 21:13 (ссылка)

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

Загрузка ...

Опытный

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

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

Нужна помощь в решении задачи! Это для моего друга!

1. Найти произведение последних N отрицательных элементов массива А = (-5, 6.1, -9.2, 4, 5, -2, 7, -1, 5, 4, 1.9, -3, 5); N = 3.

2. Сформировать массив В из элементов, расположенных ниже главной диагонали исходного массива К:

Присоединённый файл ( Кол-во скачиваний: 3 )

__________.JPG 3,96 Kb

--------------------

Мой адресс не дом и не улица, мой адресс WWW

Kuvaldis

Дата 27.10.2006, 21:44 (ссылка)

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

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

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

Alex103,
1.

Код


const
    COL = 5;
var
    mas : array [1..COL] of integer;
    i, n, found, res : integer;
begin
    writeln('Input mas elements');
    for i := 1 to COL do
    begin
       write('Mas[', i, '] = ');
       readln(mas[i]);
    end;
    writeln('Input n');
    readln(n);
    found := 0;
    res := 1;
    for i := COL downto 1 do
    begin
        if (mas[i] < 0) then
        begin
            found := found + 1;
            res := res * mas[i];
            if (found = n) then
               Break;
        end;
    end;
    Writeln('Result = ', res);   
    readln;


end.

Код


var
    mas : array [1..3, 1..3] of integer;
    res : array[1..3] of integer;
    i, k : integer;
begin
    writeln('Input mas elements');
    for i := 1 to 3 do
       for k := 1 to 3 do
          read(mas[i, k]);

    res[1] := mas[2][1];
    res[2] := mas[3][1];
    res[3] := mas[3][2];
    Writeln('Result:');
    for i := 1 to 3 do
       write(res[i] : 3);

    writeln;
    readln;
    readln; 
end.

Это сообщение отредактировал(а) Kuvaldis - 27.10.2006, 21:48

--------------------

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

Alex103

Дата 27.10.2006, 21:54 (ссылка)

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

Загрузка ...

Опытный

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

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

Тут же нужно найти произведение последних отрицательных! А твой код начинает поиск с начала! А нужно с конца считать!

--------------------

Мой адресс не дом и не улица, мой адресс WWW

Kuvaldis

Дата 27.10.2006, 22:03 (ссылка)

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

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

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

Alex103,

Цитата

если ты внимательно посмотришь, то...

Код


for i := COL downto 1 do

по-моему цикл идет с последнего и вниз до 1

P.S. ты программы запускал? сначала посмотри, плз

Это сообщение отредактировал(а) Kuvaldis - 27.10.2006, 22:18

--------------------

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

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