Преобразование прямоугольной матрицы, и работа с массивами Опции

[-Анна-]

Надо написать программу. вот задание.

Выполнить над прямоугольной матрицей В размером m*n последовательность действий:
а) В матрице В заменить заданным вектором строки, которые содержат хотя бы один нулевой элемент;
б) В полученной матрице найти сумму элементов столбцов с нечетными номерами.

[klem4]

Надо написать программу. вот задание.

чувствуется тут надолго ;)

const n=3;
      m=4;
      y:array[1..m] of integer = (10,20,30,40);
var
   x:array[1..n,1..m] of integer;
   i,j,s:integer;
   flag:boolean;

i:=1;
   flag:=false;
   while (i<=n) do
    begin
       j:=1;
       while (j<=m)and(not(flag)) do
        begin
           if x[i,j]=0 then
            flag:=true;
           inc(j);
        end;
       if flag then
        begin
           for j:=1 to m do
            x[i,j]:=y[j];
        end;
       inc(i);
       flag:=false;
    end;

j:=1;
   while j<=m do
    begin
       for i:=1 to n do
        s:=s+x[i,j];
       inc(j,2);
    end;

произв
извиняюсь, исправлено

p:=1;
for i:=1 to n do
  p:=p*x[i];

а по поводу "вставить число" это тебе в динамические массивы наверно

Сообщение отредактировано: klem4 - 21.04.2005 12:43

[Guest]

[quote=klem4,21.04.05 7:23]
чувствуется тут надолго ;)

const n=3;
      m=4;
      y:array[1..m] of integer = (10,20,30,40);
var
   x:array[1..n,1..m] of integer;
   i,j,s:integer;
   flag:boolean;

i:=1; [QUOTE]ТУТ ОШИБКА КАКАЯ ТО, не пойму как исправить!  


   flag:=false;
   while (i<=n) do
    begin
       j:=1;
       while (j<=m)and(not(flag)) do
        begin
           if x[i,j]=0 then
            flag:=true;
           inc(j);
        end;
       if flag then
        begin
           for j:=1 to m do
            x[i,j]:=y[j];
        end;
       inc(i);
       flag:=false;
    end;

j:=1;
   while j<=m do
    begin
       for i:=1 to n do
        s:=s+x[i,j];
       inc(j,2);
    end;

произв
извиняюсь, исправлено

p:=1;
for i:=1 to n do
  p:=p*x[i];

а по поводу "вставить число" это тебе в динамические массивы наверно
[/quote]