Question

Даны два одинаковых массива A и F из 20 целых чисел. Сформировать третий массив
G, каждый элемент которого равен минимальному из соответствующих элементов
первых двух массивов (н-р, если A[1]:=7 F[1]:=-4, тогда в первый элемент массива
запишется -4, те G[1]:=-4)

язык паскаль

Answer 1

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.