Матрица

[tweeker]

Добрый вечер.
Помогите пожалуйста с матрицей.
Дана целочисленная квадратная матрица. Удалить из матрицы строки, которые содержат один элемент из первой строки.
Заранее спасибо.
P.S. Если можно напишите более понятно и легко.

[Stilet]

Удалить из матрицы строки

Что подразумевается? Матрица как правило статический объект - поле памяти МхН, которое в теории изменять нельзя, соответственно нельзя удалять строки или столбцы. Можно:
1) Переписать в другую матрицу
2) Тупо не выводить на экран ненужные строки.

[tweeker]

не выводить,как я понял

[009]

var
  a: array [1..100,1..100]  of integer;
  i,k,j,n,m,t:integer;
begin
writeln('Введите размер матрицы');
read(n); read(m);
writeln('Исходная матрица');
for i:=1 to n do begin
  for j:=1 to m do begin
    a[i,j]:=random(10);   
    write(a[i,j],' ');
  end;
  writeln;
end;
i:=2;
while i<=n do begin
  t:=0;
  for k:=1 to m do
    for j:=1 to m do
    if a[i,k]=a[1,j] then begin
    inc(t); break;
    end;
  if t=1 then begin
    for k:=i to n-1 do
      for j:=1 to m do
        a[k,j]:=a[k+1,j];
    dec(n); dec(i);
  end;
  inc(i);
end;

writeln('Полученная матрица');
for i:=1 to n do begin
  for j:=1 to m do    
    write(a[i,j],' ');  
  writeln;
end;
end.