вот я исправил программу на Паскале плз помогите её переписать на С++
Код:
uses crt;
const
n=25;
m=30;
mm=35;
nn=30;
var
a:array[0..n] of integer;
b:array[0..m] of integer;
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(n);
for j:=0 to i-1 do
if(a[i]=a[j]) then
begin
a[i]:=random(nn)+random(n);
i:=1;
break;
end;
end;
writeln('Posledivatelnost A');
for i:=0 to n do write(a[i]:5);
for i:=0 to m do
begin
b[i]:=random(mm)+random(m);
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]:5);
kilk:=0;
for i:=0 to ss do
begin
kilk:=0;
for j:=0 to n do
if (b[i]=a[j]) then
begin
kilk:=b[i];
end;
end;
writeln;
writeln('Zadanie G');
if (kilk<>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 n do
if (b[i]=a[j]) then flag:=1;
if(flag=0) then write(b[i]:5);
flag:=0;
end;
readkey;
end.
