Задача 17 урок 15

Задача 17 урок 15

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

program project15_17;

var a, b: array[1..20] of integer;
    i, x, y: integer;
begin
  x:=3; //каждый третий
  y:=2; //каждый второй
  randomize();
  for i:=low(a) to high(b) do //формируем массивы
    begin
      a[i]:=random(20)-5;
      b[i]:=random(20)-5;
    end;
  for i:=low(a) to high(a) do  //выводим в консоль
      write(a[i],'| ');
  writeln();
  for i:=low(b) to high(b) do  //выводим в консоль
      write(b[i],'| ');
  writeln();
  while (x<=high(a)) do         //цикл проверки и вывода
    begin
      if a[x]>b[y] then
        writeln(a[x],' bolshe ',b[y])
      else if a[x]<b[y] then
        writeln(a[x],' menshe ',b[y])
      else
        writeln(a[x],' ravno ',b[y]);
      x:=x+3;
      y:=y+2;
    end;
  readln();
end.