Урок 15. Задача 19.
Primary tabs
Даны два массива по 20 элементов каждый (заполните случайными числами, так чтобы среди элементов массива при очередном запуске программы могли встретиться и отрицательные и положительные числа).
Сравните каждый 3-ий элемент 1-ого массива с каждый 2-ым элементов 2-ого массива - сравнение проводите пока не закончится та выборка, которая короче.
type ArrOfInt = array[1..20] of integer; var Arr_1, Arr_2 :ArrOfInt; function random_array() :ArrOfInt; // создаем массив var i :integer; Arr :ArrOfInt; begin randomize; for i := 1 to 20 do Arr[i] := random(25) - 10; random_array := Arr; end; procedure compare(Arr_1, Arr_2 :ArrOfInt); var i, j :integer; begin i := 3; j := 2; while (i <= high(Arr_1)) do begin if Arr_1[i] = Arr_2[j] then writeln('=') else if Arr_1[i] > Arr_2[j] then writeln(Arr_1[i], ' > ', Arr_2[j]) else writeln(Arr_1[i], ' < ', Arr_2[j]); i := i + 3; j := j + 2; end; end; begin Arr_1 := random_array(); Arr_2 := random_array(); compare(Arr_1, Arr_2); readln(); end.
- Log in to post comments
- 399 reads
vedro-compota
Thu, 07/28/2022 - 20:03
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)