Задание 21 урок 15

Задание 21 урок 15

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

program lesson_15;

var
  arr2, arr3: array [1..20] of integer;
  i, j, min, max: integer;

begin
  randomize();
    min := -10;
    max := 20;
    for i:=low(arr2) to high(arr2) do
      arr2[i] := min + random(max - min + 1);
    writeln('Array with a step of 2 elements:');
    for i:= low(arr2) to high(arr2) do
      write(arr2[i], ' ');
  writeln();
  for j:=low(arr3) to high(arr3) do
    arr3[j] := min + random(max - min + 1);
    writeln('Array with a step of 3 elements:');
  for j:= low(arr3) to high(arr3) do
    write(arr3[j], ' ');
  writeln();

  i := 2;  // счетчик для массива с шагом в 2 элемента
  j := 3; // счетчик для массива с шагом в 3 элемента
  while (j <= 20) do
  begin
    if arr2[i] < arr3[j] then
      writeln(arr2[i], ' < ', arr3[j])
    else
    begin
      if arr2[i] = arr3 [j] then
        writeln(arr2[i], ' = ', arr3[j])
      else writeln(arr2[i], ' > ', arr3[j])
    end;
  i += 2;
  j += 3;
  end;
  readln();
end.