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

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

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

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

type Arr=array [1..20] of integer;
var a,b:arr; i,j:integer;

procedure randm(var c: Arr);
var min, max, i: integer;
begin
  randomize();
  min:=-10;
  max:=10;
  for i:=low(c) to high(c) do
    c[i]:= min+random(max-min+1);
end;

begin
  randm(a);
  randm(b);
  i:=0;
  j:=0;
  While i<=15 do
  begin
    i+=3;
    j+=2;
    if a[i]<>b[j] then
      if a[i]>b[j] then
        writeln(a[i],' bolshe ',b[j])
      else
        writeln(a[i],' menshe ',b[j]);
  end;
  readln();
end.