Задача с матрицей, Заполнить матрицу с помощью генератора случайных чисел. Ввести элемент Опции

[Олень]

Заполнить матрицу с помощью генератора случайных чисел. Ввести элемент с клавиатуры и удалить строки, где встречается такой же элемент. Предусмотреть искл. Ситуации. СПС заранее

[volvo]

можно все сделать в одном массиве?и без массива типа булен?

Можно:

uses crt;

const
  n: integer = 10;
  m = 10;

var
  i, j, k, ch: integer;
  mas: array[1 .. 100, 1 .. 100] of integer;
  found: boolean;

begin
  clrscr;
  randomize;
  for i:=1 to n do
    for j:=1 to m do mas[i,j]:=random(100);

  writeln('ORIGINAL masiv');
  for i:=1 to n do begin
    for j:=1 to m do
      write(mas[i,j]:4);
    writeln;
  end;


  writeln('Vvedite chislo');
  readln(ch);

  i := 1;
  while i <= n do begin
    found := false;
    for j := 1 to m do
      if mas[i, j] = ch then found := true;

    if found then begin
      for j := 1 to m do
        for k := i to n - 1 do mas[k, j] := mas[k + 1, j];
      dec(n);
    end
    else inc(i);
  end;

  writeln('NEW masiv');
  for i:=1 to n do begin
    for j:=1 to m do
      write(mas[i,j]:4);
    writeln;
  end;
  readln;
end.