Задача 17 Урок 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-ом массиве больше нет.
var a, b: array [1..20] of integer; i, k, min, max: integer; begin k := 2; min := -50; max := 50; randomize(); for i := 1 to 20 do begin a[i] := random(max - min + 1) + min; write(a[i], ' '); end; writeln(); for i := 1 to 20 do begin b[i] := random(max - min + 1) + min; write(b[i], ' '); end; writeln(); for i := 1 to 20 do begin if(((i mod 3) = 0)) then begin if((a[i] > b[k])) then writeln(a[i],' bolshe ', b[k]) else if((a[i] = b[k])) then writeln(a[i],' ravno ', b[k]) else writeln(a[i],' menshe ', b[k]); k := k+2; end; end; readln(); end.
Результат
-39 32 -19 -44 -45 -13 45 -14 -43 -29 -13 22 -27 -9 31 26 -50 25 -24 -24 5 -32 -37 -13 4 20 8 -11 -4 39 -17 -47 46 6 -5 -17 -42 24 -2 -42 -19 bolshe -32 -13 ravno -13 -43 menshe 20 22 bolshe -11 31 menshe 39 25 bolshe -47
- Log in to post comments
- 1153 reads
vedro-compota
Sun, 08/22/2021 - 13:32
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)