в двумерном массиве найти произведение элементов находящихся в нечетных столбцах

[Rauff]

Решите кто сможет,срочно надо.Заранее спасибо.

[Вадим Мошев]

1. Произведение одно на всех или для каждого своё?
2. Какой язык?

[Rauff]

1-одно на всех
2-Паскаль

[Вадим Мошев]

Могу предложить свои услуги. Сделаю вам это за некоторое денежное вознаграждение. Если вы согласны, то пишите мне на почту vadimFreelance (coбака) yandex {точка} ru

Подробнее у меня в подписи

[Rauff]

Возможности нет сейчас вам заплатит,а решение нужно срочно

[Вадим Мошев]

Ну, тогда показывайте как решаете задачу.
Начните решать задачу самостоятельно. Если что-то не будет получаться, показывайте то, что сделали, задавайте конкретные вопросы.
По возможности, напишите весь код задачи так, как считаете нужным. Потом скиньте код на форум. Предварительно сами проверьте работоспособность.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Rauff]

const n=4; 
var 
a: array [1..n,1..n] of integer; 
j, i,p: integer; 
begin 
randomize; 
p:=1; 
for i:=1 to n do 
begin 
for j :=1 to n do 
begin 
a[i,j]:=random(10)-5; 
write(a[i,j]:4); 
end; writeln 
end; 
for i:=1 to n do 
begin 
for j:=1 to n do 
begin 
if (odd(j)) and (a[i,j]<0) then p:=p*a[i,j]; 
end; 
end; 
writeln; 
Writeln(p); 
end.

Я же просил Пожалуйста, оформляйте Ваш код согласно правилам. (хотя, учитывая форматирование кода, смысла в этом нет)

И никак не получается

Где ошибка ?

[Вадим Мошев]

Что не получается? Вы сами проверяли?
Зачем вы проверяете элемнт на отрицательность?

[Rauff]

В вводе выводит вот так

 4 -3 8 8 
6 -10 -4 -6 
6 9 -3 -10 
-10 7 -5 -6 
600

Подскажите где ошибка

[Вадим Мошев]

А вы сами посчитайте произведение ОТРИЦАТЕЛЬНЫХ элементов в нечётных столбцах

4   -3    8    8 
6   -10  -4   -6 
6    9   -3  -10 
-10  7   -5   -6

у меня тоже 600 получилось. Вам произведение каких элементов нужно?