Составление матрицы

[Хайд]

Помогите пожалуйста решить следующую задачу:
Ввести размер прямоугольной матрицы и значения ее элементов. Построить вектор В, где B(i) значение элемента матрицы, не равное заданному значению.

буду очень очень благодарен

[andrewpalkin]

Сообщение от Хайд

буду очень очень благодарен

Будем очень признательны, если ты покажешь нам свои наработки и скажешь , что именно не работает

[Хайд]

ну матрицу составить смог..

    var    a: array [1..10,1..10] of integer;
         I, j, n, k: integer;
    begin
    write (‘n=’); readln (n);
    for i:= 1 to n do
        for  j:=1  to n do
              readln (a[ i, j ]);
    writeln (‘ Была введена матрица: ‘);
    for i:=1 to n do
    begin
         for j:=1 to n do  write (a[ i, j], ’  ‘);
         writeln;
   end;
   k:=0;
   for i:=1 to n do
          begin
         if (a[ i, i ]>0) then   k:=k+1;     { Элемент лежит на главной диагонали}
         if    a[ i, n-i+1 ]>0  then  k:=k+1; { Элемент лежит на побочной диагонали}
        end;
        end.

а как построить вектор с неравными заданным значениям непойму.. :-(

[andrewpalkin]

Я немного не понимаю , что именно от тебя хотят в этом задание , думаю тебе помогут , кто понял задание

[Хайд]

я уточнил там нужно вывести массив со значениями не равными заданными.. это сильно сложно написать?

[andrewpalkin]

Сообщение от Хайд

я уточнил там нужно вывести массив со значениями не равными заданными.. это сильно сложно написать?

Написать можно любую задачу , если понять , что от тебя просят . Я лично не понимаю , что именно хотят , что бы ты сделал

[Stilet]

А вот что:

    var    a: array [1..10,1..10] of integer;
 vector:array[1..100] of integer
         I, j, n, k,l: integer;
    begin
    write (‘n=’); readln (n);
    for i:= 1 to n do
        for  j:=1  to n do
              readln (a[ i, j ]);
    writeln (‘ Была введена матрица: ‘);
    for i:=1 to n do
    begin
         for j:=1 to n do  write (a[ i, j], ’  ‘);
         writeln;
   end;
   k:=0;
   for i:=1 to n do
          begin
         if (a[ i, i ]>0) then   k:=k+1;     { Элемент лежит на главной диагонали}
         if    a[ i, n-i+1 ]>0  then  k:=k+1; { Элемент лежит на побочной диагонали}
        end;

    write (‘Каое значение будем исключать?’); readln (k);l:=1;
    for i:= 1 to n do
        for  j:=1  to n do
           if a[i,j]<>k then begin vector[l]:=a[i,j];inc(l);end;   
    writeln (‘ А теперь выводи вектор vector.‘);

  end.

[Хайд]

Огромное спасибо.. только можете уточнить как вывести вектор, а то я в них не соображаю толком, пробовал но не получаеться..( я так понял через цикл так же как и матрицу?