Замена строк в Матрице. Опции

[TALbert666]

1) В матрице B заменить заданным вектором строки, которые содержат хотя бы один ненулевой элемент.
2) В полученной матрице найти сумму элементов столбцов с нечётными номерами.
примечание:
матрица B -прямоугольная, размером mxn.

[klem4]

1) В матрице B заменить заданным вектором строки, которые содержат хотя бы один ненулевой элемент.

Вроде так

Код

uses crt;
const n=5;
var b:array[1..n,1..n] of integer;
  c:array[1..n] of integer;
  i,j,k:integer;

Begin
 clrscr;
 randomize;

 for i:=1 to n do
  begin
     for j:=1 to n do
      begin
         b[i,j]:=random(11)-random(6);
         write(b[i,j]:2);
         write(' ');
      end;
     writeln;
  end;

  writeln;

  for j:=1 to n do
   begin
      c[j]:=random(11)-random(6);
      write(c[j]:2);
      write(' ');
   end;

   writeln;

  for i:=1 to n do
   begin
      k:=i;
      for j:=1 to n do
       if b[i,j]<>0 then
        begin
           i:=k;
           for j:=1 to n do
            b[i,j]:=c[j];
            break;
        end;
     end;

  writeln;
  writeln;

   for i:=1 to n do
    begin
       for j:=1 to n do
        begin
           write(b[i,j]:2);
           write(' ');
        end;
        writeln;
   end;
   readln;
   end.

Сообщение отредактировано: klem4 - 27.12.2004 0:58