[trey_tao]

я ето сделал на паскале могу скинуть код сюда вот

Код:

uses crt;
const
     n=25;
     m=30;
     mm=50;
     nn=30;
var
   a:array[0..n] of real;
   b:array[0..m] of real;
   min,max:real;
   ss,tt,i,j,flag:integer;
   kilk,kilk2:integer;
begin
     clrscr;
     randomize;
          for i:=0 to n do
     begin
          a[i]:=random(nn)+random;
          for j:=0 to i-1 do
              if(a[i]=a[j]) then
              begin
                   a[i]:=random(nn);
                   i:=1;
                   break;
              end;
     end;
writeln('Posledivatelnost A');
for i:=0 to n do  write(a[i]:8:2);
for i:=0 to m do
    begin
         b[i]:=random(mm)+random;
         for j:=0 to i-1 do
             if (b[i]=b[j]) then
             begin
                  b[i]:=random(mm);
                  i:=j;
                  break;
             end;
    end;
writeln;
writeln;
writeln('Posledovatelnost B');   read(ss);
for i:=0 to ss do write(b[i]:8:2);
kilk2:=0;
for i:=0 to n do
    begin
         kilk:=0;
         for j:=0 to n do
             if (b[j]=a[i]) then
             begin
                  kilk2:=kilk2;
                  break;
             end;
    end;
writeln;
writeln('Zadanie G');
if (kilk2<>ss) then writeln('Ymova ne vikonyetsya') else writeln('Vse cheni posledovatelnosti A ne vhodyat v posledovatelnost B');
writeln;
writeln('Zadanie B');
flag:=0;
for i:=0 to ss do
begin
    for j:=0 to ss do
        if (b[i]=a[j]) then flag:=1;
if(flag=0) then write(b[i]:8:2);
flag:=0;
end;
readkey;
end.