Одномерный массив из элементов матрицы

Posted by obzor under Delphi

Сформировать одномерный массив, состоящий из произведений четных элементов, располагающихся в четных строках матрицы X (n x m).

newerow1989

const n=10;
      m=6;
var i,j,l,pr:integer;
    x:array[1..n,1..m] of integer;
    a:array of integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to m do
      begin
         x[ i,j]:=1+Random(20);
         Write(x[ i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   l:=0;
   For i:=1 to n do
      If i mod 2 = 0 then
      begin
         pr:=1;
         For j:=1 to m do
            If x[ i,j] mod 2 = 0 then
               pr:=pr*x[ i,j];
         l:=l+1;
         SetLength(a,l);
         a[l-1]:=pr;
      end;
   For i:=Low(a) to High(a) do
      Write(a[ i],'  ');
   Writeln;
   Readln;
end.

тема на форуме

Похожие статьи

• Поиск заданного числа в квадратной матрице
• Транспонирование целочисленной матрицы
• Заменить элементы матрицы, лежащие ниже главной диагонали
• Проход матрицы зизагом. Delphi
• Задача на матрицы (Pascal)