Const n=7;
var a : array[1..n] of integer; i : integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(30)+1;
write(a[i],',');
end;
writeln;
<span>end.</span>
program raf105;
const
N = 10;
var
a,b: array[1..N] of integer;
x: boolean;
begin
for var i:=1 to N do
begin
a[i]:= random(15);
b[i]:= random(15);
end;
writeln('A: ',a);
writeln('B: ',b);
write('Вывод: ');
for var i:=1 to N do
begin
x:= False;
for var j:=1 to N do
if a[i] = b[j] then x:= True;
if not(x) then write(a[i],', ');
end;
end.
<h3>PascalABC</h3>
Переходите от одного квадрата к другому, выбирая при этом ту цифру, которая меньше – таким образом вы ищите кратчайший путь.