Получить все члены последовательности - Pascal - Ответ 559571

uses CRT;
const n=25;
type  myarray = array[1..25] of integer;
      myarray1= array[1..n]  of integer;
var   a:myarray;
      b:myarray1;
      R:Integer;
      
Function Checkup (var a:myarray; ch:Integer):Boolean; //проверка на вхождения числа в массив
var
i:Integer;
Begin
result:=true;
For i:=1 to 25 do
                if a[i]=ch then
                               begin
                               Result:=False;
                               break;
                               end;
End;
 
 
procedure Init(var a,b:myarray); {У тебя тут ошибка: a,b у тебя оба типа myarray}
var   i,j:integer;
begin
     randomize;
     for i:=1 to 25 do                 {Цикл генерации массива A}
         a[i]:=random(100);
     for j:=1 to n do                  {Цикл генерации массива B}
         b[j]:=random(100);
     for i:=1 to 25 do                 {Цикл замены одинаковых элементов массивов на случайно генерируемые}
         for j:=1 to n do
             if a[i]=b[j] then
                              begin
                              for i:=1 to 100 do
                                               begin
                                                r:=random(100);
                                                if CheckUp(a,r)=true then
                                                                         begin
                                                                          b[j]:=random(100);
                                                                          break;
                                                                          end;
                                                end;
                              end;
end;
 
procedure Print(a,b:myarray);  {Таже ошибка}
var  i,j:integer;
begin
     for i:=1 to 25 do
         Write(a[i]:5);
     Writeln;
     Writeln;
     Writeln;
     for j:=1 to n do
         Write(b[j]:5);
end;
 
begin
     Init(a,b);
     Print(a,b);
end.