Задачка с множествами Опции

[ilua_great]

Вообшем есть задача на множества:

Дано произвольное множество целых чисел M в интервале 1..255 и массив 10х10, содержащий значения также в интервале 1..255. Удалить из исходного множества все элементы, входящие в массив.

И есть недоделаное решение:

program zzz3;
USES
CRT;
VAR
  m1:array[1..255] of integer;
  m2:array[1..20,1..20] of integer;
  i,j  :integer;
BEGIN
  ClrScr;
  randomize;
  writeln('MASSIV 10x10');

  for I:=1 to 10 do
  Begin
    writeln;
    for J:=1 to 10 do
    Begin
      m2[I,J]:=round(random(505-255));
      write(m2[I,J]:4,'  ');
    End;
  End;

  writeln;
  writeln;
  writeln('POSLEDOVATELNOST');
  writeln;

  for I:=1 to 10 do
  begin
    m1[i]:=round(random(505-255));
    write(m1[i]:5);
  end;
readkey;
END.

Вообшем прошу не помогать советами о том что и как сделать, а если не сложно исходный код готовой задачи. Т.к. сам в этом слабо соображаю, а надабы срочно

[klem4]

Я предупреждал, тема закрыта, Alеx J'Root получает бан на 3 месяца, второй профиль заблочен навсегда, и не советую создавать другие профили, получишь бан по IP пожизненно.

Сообщение отредактировано: klem4 - 17.06.2008 10:06