Дан одномерный массив из 12 случайных чисел в Диапазоне [-50;50].
Отсортировать массив по возрастанию и вывести на экран сообщение «Число нечетное», если 3 элемент в отсортированном массиве нечетный, и «Число четное», если 3 элемент четный.
Отсортировать массив по возрастанию и вывести на экран сообщение «Число нечетное», если 3 элемент в отсортированном массиве нечетный, и «Число четное», если 3 элемент четный.
More Questions From This User See All
Answers & Comments
Verified answer
Программа:
Pascal:
var
arr: array[1..12] of integer;
i, j, tmp: integer;
begin
for i := 1 to 12 do arr[i] := random(-50, 50);
for i := 1 to 11 do
for j := i + 1 to 12 do
if arr[i] > arr[j] then begin
tmp := arr[i];
arr[i] := arr[j];
arr[j] := tmp;
end;
writeln(arr);
if arr[3] mod 2 = 0 then writeln('Число чётное')
else writeln('Число нечётное');
end.