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

[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.

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

[volvo]

Alеx J'Root, а теперь слушай внимательно, и не говори потом, что тебя "притесняют и унижают"...

1) массив и множество - совершенно разные вещи, и если ты этого не знаешь - учи матчасть.
2) даже если автор привел задачу, в которой используется 2 массива, он сам и сказал, что это -

недоделаное решение

, коли ты взялся помогать - будь добр сделать правильно (в первую очередь - по заданию, поскольку автор будет доволен твоим решением ровно до тех пор, пока не покажет его преподавателю).
3) где минус, заслуженно полученный тобой за хамство? Остался во втором профиле? Ты думаешь, создание дубликатов профиля правилами разрешено? Я прошу администраторов/модераторов форума обратить пристальное внимание на манипуляции Alеx J'Root-а (первое лицо: Alex J'Root и второе: Alеx J'Root ), и принять меры...

ilua_great, вот решение задачи, удовлетворяющее условию:

uses crt;

const
  size = 10;
var
  my_set: set of byte;
  matr: array[1 .. 10, 1..10] of byte;

  i, j: integer;

begin
  ClrScr;
  randomize;
  writeln('MASSIV 10x10');

  for I:=1 to 10 do
  Begin
    writeln;
    for J:=1 to 10 do
    Begin
      matr[I,J] := random(255) + 1;
      write(matr[I,J]:4,'  ');
    End;
  End;

  writeln;
  writeln;
  writeln('POSLEDOVATELNOST DO:');
  writeln;

  for I:=1 to 10 do
  begin
    repeat
      j := random(255) + 1;
    until not (j in my_set);
    include(my_set, j);
    write(j:5);
  end;

  writeln;
  writeln;
  writeln('POSLE:');
  writeln;

  for i := 1 to size do
    for j := 1 to size do
      if matr[i, j] in my_set then exclude(my_set, matr[i, j]);

  for I:= 0 to 255 do
    if i in my_set then write(i:5);
  writeln;
  readkey;
END.

Сообщение отредактировано: volvo - 13.06.2008 19:51