Урок 15. Задача 19.

Урок 15. Задача 19.

Даны два массива по 20 элементов каждый (заполните случайными числами, так чтобы среди элементов массива при очередном запуске программы могли встретиться и отрицательные и положительные числа).
Сравните каждый 3-ий элемент 1-ого массива с каждый 2-ым элементов 2-ого массива - сравнение проводите пока не закончится та выборка, которая короче.

type ArrOfInt = array[1..20] of integer;
var Arr_1, Arr_2 :ArrOfInt;

function random_array() :ArrOfInt; // создаем массив
var i :integer;
    Arr :ArrOfInt;
begin
  randomize;
  for i := 1 to 20 do
    Arr[i] := random(25) - 10;
  random_array := Arr;
end;

procedure compare(Arr_1, Arr_2 :ArrOfInt);
var i, j :integer;
begin
  i := 3;
  j := 2;
  while (i <= high(Arr_1)) do
  begin
    if Arr_1[i] = Arr_2[j] then
      writeln('=')
    else
      if Arr_1[i] > Arr_2[j] then
        writeln(Arr_1[i], ' > ', Arr_2[j])
      else
        writeln(Arr_1[i], ' < ', Arr_2[j]);
    i := i + 3;
    j := j + 2;
  end;
end;

begin
  Arr_1 := random_array();
  Arr_2 := random_array();
  compare(Arr_1, Arr_2);
  readln();
end.