Массивы в Pascal. Произведение элементов и формирование.

[Jance]

Здравствуйте. Всегда были проблемы с массивами. Просьба в помощи решения следующих задач:

2. Реализовать на Паскале алгоритм: Дан массив К(20). Подсчитать произведение элементов, стоящих до первого встретившегося положительного числа.
3. Реализовать на Паскале. Сформировать массив из элементов массива D(8,10), удовлетворяющих условиям Di,J ≤ 16,3 и определить его длину.

Заранее благодарен.

[Serge_Bliznykov]

2. Реализовать на Паскале алгоритм: Дан массив К(20). Подсчитать произведение элементов, стоящих до первого встретившегося положительного числа.

p:=1;
i:=1;
while (i<=20) and (K[i]<0) do begin
  p := p * K[i];
  inc(i);
end;

p.s. в данном примере нули считаются положительным числом (если встретится нулевое значение, цикл прерывается), если это не так, то код нужно изменять...

p.p.s. функция произведения чисел очень быстро растёт (см. факториал), поэтому для переменной p нужно брать тип, способных вместить большое значение (longInt, Int64) или даже вещественный тип (real, extended и т.п.)

[Streletz]

Всегда были проблемы с массивами

А, в чём конкретно состоят проблемы? Покажите наработки.

[Jance]

Сообщение от Streletz

А, в чём конкретно состоят проблемы? Покажите наработки.

В понимании.

[Jance]

Сообщение от Serge_Bliznykov

p:=1;
i:=1;
while (i<=20) and (K[i]<0) do begin
  p := p * K[i];
  inc(i);
end;

p.s. в данном примере нули считаются положительным числом (если встретится нулевое значение, цикл прерывается), если это не так, то код нужно изменять...

p.p.s. функция произведения чисел очень быстро растёт (см. факториал), поэтому для переменной p нужно брать тип, способных вместить большое значение (longInt, Int64) или даже вещественный тип (real, extended и т.п.)

Благодарю.

[Streletz]

Сообщение от Jance

В понимании.

Под наработками подразумеваются попытки Автора самостоятельно решить возникшую проблему. Как правило, в виде, пусть не правильного, но всё-таки кода.
Конечно, у нас на форуме есть добрые люди, для которых понятие "Помочь" включает в себя "Сделать за Вас". Это их полное право, я их совершенно не осуждаю. Однако, очень многие люди придерживаются противоположного мнения. Не потому они злые, а просто из принципа. Поэтому, без обид. Считайте, что Вам просто повезло, что Вам встретился такой Добрый человек.

[Jance]

Сообщение от Streletz

Под наработками подразумеваются попытки Автора самостоятельно решить возникшую проблему. Как правило, в виде, пусть не правильного, но всё-таки кода.
Конечно, у нас на форуме есть добрые люди, для которых понятие "Помочь" включает в себя "Сделать за Вас". Это их полное право, я их совершенно не осуждаю. Однако, очень многие люди придерживаются противоположного мнения. Не потому они злые, а просто из принципа. Поэтому, без обид. Считайте, что Вам просто повезло, что Вам встретился такой Добрый человек.

Вы чересчур принципиальны.