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

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

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

Например пусть мы имеем два массива (запишу лишь начальные элементы):

1 | 2 | -10 | 5 | 0 | 12 | 2 | 8 ....
0 | 3 | 4 | 9 | 7 | 5 | -8 | 3.....
для них программа должна вывести:

-10 меньше 3
12 больше 9
- других сравнений не последует, так как новых из "каждых третьих элементов" в 1-ом массиве больше нет.

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

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;

  for i := low(a) to high(a) do
    write(a[i], ' ');
  writeln;
  for i := low(b) to high(b) do
    write(b[i], ' ');
  writeln;

  write('Программа завершила свою работу');
  readln();
end.