Задача 21 Урок 15
Primary tabs
Даны два массива по 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-ом массиве больше нет.
type arr1 = array [1..20] of integer; arr2 = array [1..20] of integer; var min, max, i, j : integer; a : arr1; b : arr2; begin randomize(); min := -10; max := 20; for i := low(a) to high(a) do a[i] := min + random(max - min + 1); for i := low(b) to high(b) do b[i] := min + random(max - min + 1); i := 3; j := 2; while i <= high(a) do begin if a[i] > b[j] then writeln(a[i], ' > ', b[j]) else if a[i] < b[j] then writeln(a[i], ' < ', b[j]) else writeln(a[i], ' = ', b[j]); i += 3; j += 2; end; for i := low(a) to high(a) do write(a[i], ' '); writeln; for i := low(b) to high(b) do write(b[i], ' '); writeln; write('Программа завершила свою работу'); readln(); end.
- Log in to post comments
- 278 reads