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

rogram U15Z17;
type mas=array[1..20] of integer;
var a,b:mas;
    i,j,u:integer;
procedure zap(var m: mas);
var g:integer;
begin
  for g:=1 to 20 do
  begin
    m[g]:=random(20)-10;
    write(m[g],' ');
  end;
  writeln();
end;
begin
  randomize();
  zap(a);
  zap(b);
  i:=3;
  j:=2;
  for u:=1 to 6 do
    begin
      if (a[i]>b[j]) then
        writeln(a[i]:4,' bolshe',b[j]:4)
      else
        if (a[i]<b[j]) then
          writeln(a[i]:4,' menshe',b[j]:4)
        else
            writeln(a[i]:4,' ravno',b[j]:4);
      i:=i+3;
      j:=j+2;
    end;
  readln();
end.