Дан массив Х(N,M). Среди элементов чётных столбцов массива найти произведение элементов,лежащих в интервале [2,4]


помогите написать программу в паскале, пожалуйста!

1

Ответы и объяснения

Лучший Ответ!
2014-02-25T21:43:47+04:00
Var 
    x:array[1..N, 1..M] of integer; 
    i, j, res:integer;
begin 
    res := 1; 
    for i:=1 to N do 
        begin

            for j:=1 to M step 2 do 

                 begin

                      if (x[i, j] >= 2) and (x[i, j] <= 4) then
res = res * x[i, j];
                 end;

            end;
end.
спасибо большое:-)
for j:=2 to M step 2 do (исправление)