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

Задача 17 Урок 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-ом массиве больше нет.

var a, b: array [1..20] of integer;
    i, k,  min, max: integer;

begin
  k := 2;
  min := -50;
  max := 50;
  randomize();
  for i := 1 to 20 do
    begin
      a[i] := random(max - min + 1) + min;
      write(a[i], ' ');
    end;
  writeln();
  for i := 1 to 20 do
    begin
      b[i] := random(max - min + 1) + min;
      write(b[i], ' ');
    end;
  writeln();
  for i := 1 to 20 do
    begin
      if(((i mod 3) = 0)) then
        begin
          if((a[i] > b[k])) then
            writeln(a[i],' bolshe ', b[k])
          else if((a[i] = b[k])) then
            writeln(a[i],' ravno ', b[k])
          else
            writeln(a[i],' menshe ', b[k]);
          k := k+2;
        end;
    end;
  readln();
end.  
          

Результат

-39 32 -19 -44 -45 -13 45 -14 -43 -29 -13 22 -27 -9 31 26 -50 25 -24 -24
5 -32 -37 -13 4 20 8 -11 -4 39 -17 -47 46 6 -5 -17 -42 24 -2 -42
-19 bolshe -32
-13 ravno -13
-43 menshe 20
22 bolshe -11
31 menshe 39
25 bolshe -47