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

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

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

type
  myArr = array [1..20] of integer;
var
  min, max, i, j : integer;
  a,b : myArr;

begin
  randomize();
  min := -10;
  max :=  20;
  for i := low(a) to high(a) do
    a[i] := min + random(max - min + 1);
  for i := low(b) to high(b) do
    b[i] := min + random(max - min + 1);

  i := 3;
  j := 2;
  while i <= high(a) do
  begin
    if a[i] > b[j] then
      writeln(a[i], ' > ', b[j])
    else
      if a[i] < b[j] then
        writeln(a[i], ' < ', b[j])
      else
        writeln(a[i], ' = ', b[j]);
    i += 3;
    j += 2;
  end;
  writeln('the first array');
  for i := low(a) to high(a) do
    write(a[i], ' ');
  writeln;
  writeln('the second array');
  for i := low(b) to high(b) do
    write(b[i], ' ');
  writeln;
  writeln('END');
  readln();
end.  

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

15 < 17
16 > 13
14 > -10
10 > 1
-3 > -4
8 < 14
the first array
7 18 15 7 0 16 4 -2 14 10 17 10 5 13 -3 12 -8 8 8 6
the second array
-4 17 7 13 -5 -10 -5 1 11 -4 -5 14 14 0 17 2 -7 7 10 -7
END