вычислить произведение четных чисел в каждой строке массива.

[Oliver Sykes]

Массив D(4,6)
вычислить произведение четных чисел в каждой строке массива.

[NikLik]

program n1;
var d:array[1..4,1..6] of integer;
i,j:byte;
pr:array [1..4] of integer;
begin
{генерация массива}
{...}
     for i:=1 to 4 do
     begin
         pr[i]:=1;
         for j:=1 to 6 do
              if (d[i,j]mod 2)=0 then
                 pr[i]:=pr[i]*d[i,j];
     end;
     for i:=1 to 4 do
          if pr[i]=1 then
             pr[i]:=-1;
{если чётных чисел в строке вообще нет, то результат=-1}
end.

[Rusl92]

var d:array[1..100] of integer;
     pr:array[1..50] of integer;
      n,m,i,j,g:integer;
begin
pr:=1;g:=0;
write('Введите количество строк ');
readln(n);
write('Введите количество столбцов ');
readln(m);   
for i:=1 to n do 
for j:=1 to m do
begin 
write('a[',i,',',j,']=');
readln(a[i,j]);
end;

for i:=1 to n do
begin
g:=g+1; 
for j:=1 to m do
  if (not odd(a[i]))
   then
    pr[g]:=pr[g]*a[i];
end;
for i:=1 to g do
write('произведение четных чисел в ',i,' cтроке = ',pr[i]:4);

readln
end.

вот так!

[Oliver Sykes]

Благодарю=)

[puporev]

вот так!

Как в анекдоте: чукча не читатель, чукча писатель. Писать левой рукой программы здорово научились. Если нет понятия того о чем пишете, то хотя бы прогоняйте программу перед публикацией.

[Rusl92]

???????
я просто страницу не обновил когда писал??????????
программа работает