Матрица и массив, Никак не пойму...... Опции

[fanatik]

Кто-нить помогите решить задачку. Текст следующий: Даны целочисленная матрица X[1:n,1:m] и целочисленный массив Z[1:r]. Обнулить элементы матрицы X, которых нет в массиве Z и запомнить обнулённые элементы. Буду очень благодарен за помощь.

[Bokul]

SuperMozg, что-то мне кажется, что твоя прога не совсем правильно работает... Вот добавил к ней пау строчок для заполнения массивов данными, так получинные результаты не есть верными.

uses crt;
const
r=10;
n=5;
m=7;type
rec = record
      i0,j0: integer;
      end;
index = array[1..r] of rec;
massiv = array[1..r] of integer;
matrix = array[1..n, 1..m] of integer;
var   mas: index;
      x: matrix;    z: massiv;
      i, j, k: integer;
      count: integer;
begin
clrscr;
for i:=1 to n do
    begin
         for j:=1 to m do
            begin
                 x[i,j]:=random(10);
                 write(x[i,j],' ');
            end;
         writeln;
    end;
writeln('-------------------------------------');
for k:=1 to r do
    begin
         z[k]:=random(10);
         write(z[k],' ');
    end;
writeln;
writeln('-------------------------------------');
count:= 0;
for k:= 1 to r do
    for i:= 1 to n do
        for j:= 1 to m do
            if (x[i,j] = z[k]) and (x[i,j]<>0) then
               begin
                    x[i,j]:= 0;
                    count:= count+1;
                    mas[count].i0:= i;
                    mas[count].j0:= j;
               end;
for i:= 1 to count do
    write('y=',mas[i].i0, ' x=',mas[i].j0,'|');
readln;
end.

Ошибка в цикле проверки - надо сверять каждый элемент матрицы X со всема элементами массива Z, ты же сравниваешь только с одним.



volvo,
n=100;
m=500;
r=100;
Время - где-то секунда...