матрицы...

[тиму]

1. Дана целочисленная матрица X размером 10х12. Сформировать вектор, каждый элемент которого равен первому четному элементу соответствующего столбца, если четных элементов в столбце нет, присвоить 0.
2. В заданной вещественной матрице B размером 7 х 8 удалить строку, содержащую наибольшее количество положительных значений.
помогите пожалуйста до завтра.....

[Аватар]

1.

  for j:=1 to 12 do begin Y[j]:=0; for i:=1 to 10 do if not Odd(X[i,j]) then begin Y[j]:=X[i,j]; Break; end; end;

[newerow1989]

1 задача:

var x:array[1..10,1..12] of byte;
    p:array[1..12] of byte;
    i,j,n:byte;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 12 do
      begin
         x[i,j]:=Random(21);
         Write(x[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 12 do
   begin
      n:=0;
      For i:=1 to 10 do
         If x[i,j] mod 2=0 then
         begin
            n:=x[i,j];
            Break;
         end;
      p[j]:=n;
      Write(p[j],'  ');
   end;
   Writeln;
   Readln;
end.

2 задача:

var p:array[1..7,1..8] of integer;
    max:array[1..7] of byte;
    i,j,n:byte;
begin
   Randomize;
   For i:=1 to 7 do
   begin
      For j:=1 to 8 do
      begin
         p[i,j]:=-10+Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to 7 do
   begin
      max[i]:=0;
      For j:=1 to 8 do
         If p[i,j]>0 then
            max[i]:=max[i]+1;
      Write(max[i],' ');
   end;
   Writeln;
   n:=1;
   For i:=2 to 7 do
      If max[i]>max[n] then
         n:=i;
   For i:=1 to 7 do
   begin
      If i<>n then
      begin
         For j:=1 to 8 do
            Write(p[i,j],'  ');
         Writeln;
      end;
   end;
   Readln;
end.

Сойдет?

[тиму]

спасибо большое))) помогите со вторым))

[newerow1989]

Пожалуйста!

помогите со вторым))

Не так быстро!

[тиму]

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

Пожалуйста!

Не так быстро!

извините)))

спасибо большое!))) выручили чайника)

[newerow1989]

Пожалуйста!