Урок 15 Задача 21

Урок 15 Задача 21:

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

type
  massiv = array[1..20] of integer;
var
  perv, vtor: massiv;    // первый и второй массивы
  i, j: integer;
begin
  randomize();
  for i:=low(perv) to high(perv) do
  begin
    perv[i] := random (21)-10;
    vtor[i] := random (21)-10;
    write (perv[i], ' ');
  end;
    writeln;
  for i:=low(vtor) to high(vtor) do
    write (vtor[i], ' ');
  writeln;
  writeln;
  i:=3;
  j:=2;
  while i<=high(perv) do // цикл работает, пока есть "каждый третий элемент" в первом массиве
  begin
    if perv[i] > vtor[j] then
      write (perv[i], ' > ', vtor[j])
    else if perv[i] < vtor[j] then
        write (perv[i], ' < ', vtor[j])
      else
        write (perv[i], ' = ', vtor[j]);
    i:=i+3;             // увеличиваем счетчик первого массива на 3
    j:=j+2;             // увеличиваем счетчик второго массива на 2
    writeln;
  end;
  readln();
end.

Вывод в консоли:

-4 7 -1 -5 0 -7 -1 1 -3 -7 -5 5 7 -3 -2 0 -6 -4 5 -5 
-6 4 -2 -8 -2 3 -8 5 2 6 -4 7 1 -6 -7 4 7 -1 7 -2 
-1 < 4
-7 > -8
-3 < 3
5 = 5
-2 < 6
-4 < 7