Задача 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-ом массиве больше нет.
program u15z21; type massiv = array[1..20] of integer; var m, n: massiv; i, j: integer; begin randomize(); for i:=low(m) to high(m) do begin m[i] := random (50)-10; write (m[i], ' '); end; writeln(); for i:=low(n) to high(n) do begin n[i] := random (50)-10; write (n[i], ' '); end; writeln(); i:=3; j:=2; while i<=high(m) do begin if m[i] > n[j] then write (m[i], ' > ', n[j]) else if m[i] < n[j] then write (m[i], ' < ', n[j]) else write (m[i], ' = ', n[j]); i:=i+3; j:=j+2; writeln; end; readln(); end.
- Log in to post comments
- 168 reads