Множество А содержит 20 случайных числе из диапазона от 1 до 100. Нечётные числа записать в один массив, а чётные - в другой

@sinlerks · Регистрация: 22.02.2013

Author24 — интернет-сервис помощи студентам

Множество А содержит 20 случайных числе из диапазона от 1 до 100. Нечётные числа записать в один массив, а чётные - в другой.

@Sckrejjet · 23.02.2013, 20:21

Думаю так

Все выполняется автоматически

Pascal

uses crt;
var
  mn:set of 1..100;
  i,a,m1,m2:integer;
  Nech,Chet:array [1..20] of integer;
Begin
  i:=1;
  mn:=[];
  write('Mnozhestvo: ');
  while i<=20 do
    begin
      a:=Random(100)+1;
      if not (a in mn) then
        begin
          mn:=mn+[a];
          inc(i);
        end;
    end;
 
  for i:=1 to 100 do
    begin
      if i in mn then
        Write(i,' ');
    end;
 
  m1:=1;
  m2:=1;
  for i:=1 to 100 do
    begin
      if (i in mn) and ((i)mod(2)=0) then
        begin
          Chet[m1]:=i;
          inc(m1);
        end
      else if (i in mn) and ((i)mod(2)<>0) then
        begin
          Nech[m2]:=i;
          inc(m2);
        end;
    end;
 
  i:=1;
  writeln;
  Write('Massiv s chetnimi chislami: ');
  while Chet[i]<>0 do
    begin
     Write(Chet[i],' ');
     inc(i);
    end;
    
  i:=1;
  writeln;
  Write('Massiv s nechetnimi chislami: ');
  while Nech[i]<>0 do
    begin
      Write(Nech[i],' ');
      inc(i);
    end;
End.

@sinlerks · 24.02.2013, 10:15 **[ТС]**

спасибо^^^^

@sinlerks 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 22
		1
	Множество А содержит 20 случайных числе из диапазона от 1 до 100. Нечётные числа записать в один массив, а чётные - в другой 23.02.2013, 18:19. Показов 2091. Ответов 2 Метки нет (Все метки) Множество А содержит 20 случайных числе из диапазона от 1 до 100. Нечётные числа записать в один массив, а чётные - в другой. 0

@sinlerks 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 22
	24.02.2013, 10:15 [ТС]	3
	спасибо^^^^ 0

Множество А содержит 20 случайных числе из диапазона от 1 до 100. Нечётные числа записать в один массив, а чётные - в другой

Решение