[lxa85]

trey_tao, пиши пример входных и выходных данных.

[trey_tao]

вот так типа должно оно быть вводим n для создания второго масива n ето число символов во втором масиве

[lxa85]

trey_tao, входные данные вижу, а выходные где?

[trey_tao]

то есть результат?? тот который на екране должен быть?

[trey_tao]

плз напиши мне в Отправить PM

[Drongo]

то есть результат?? тот который на екране должен быть? »

да.

[trey_tao]

вот что должно быть на экране после нажатия кнопки запуска

теперь вводим n и получаем

у меня на скрине написано задание G то ето вот какое задание 2)Верно ли что все члены последовательности а1...а25 входят в последовательность б1....б(n)
а задание B ето 1)Получить все члены последовательности б1....б(n) которые не входят в последовательность а1...а25

[lxa85]

А можно примеры чисел в одну строку и без запятых? Дошел до 5 ой цифры, уже устал.
Сделай их текстовыми, с картинками работать сложно.

Далее. Будем считать, вход/выход ты получил.
Можешь рассказать словами, как ты это сделал? Чем подробнее, тем лучше, с примерами и прочими "бантиками". Считай, что объясняешь трехлетнему ребенку, научившемуся сравнивать числа.

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