Задание 21 урок 15
Primary tabs
Даны два массива по 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.
- Log in to post comments
- 391 reads