"Роберт Мур вовсе не рисуется и ничуть не сентиментален"Смысл​

Непонятно только, почему в условии написано "одинаковых массива", если они разные. Наверное, имелось в виду "одинакового размера".

var i: integer;

var A, F, G: array [1..20] of integer;

begin

// Заполним массивы

randomize;

For i:= 1 to 20 do

begin

A[i]:=random(201)-100;

F[i]:=random(201)-100;

end;

// Составляем третий массив G

For i:= 1 to 20 do

begin

if (A[i]<F[i]) then G[i]:=A[i]

else G[i]:=F[i];

end;

// Выводим на экран

writeln('A':5,'F':5,'G':5);

For i:= 1 to 20 do

begin

writeln(A[i]:5,F[i]:5,G[i]:5);

end;

end.

var A, F, G: array [1..20] of integer;

sA, sF: string;

i: integer;

begin

       for i:= 1 to 20 do

       begin

               A[i] := random(-20, 20);

               F[i] := random(-20, 20);

               sA += A[i] + ' ';

               sF += F[i] + ' ';

       end;

 

       writeln('A: ' + sA);

       writeln('F: ' + sF);

 

       write('G: ');

       for i:= 1 to 20 do

       begin

               if A[i] < F[i] then

                       G[i] := A[i]

               else

                       G[i] := F[i];

               write(G[i] + ' ');

       end;

       writeln();

end.