Дан одномерный массив из 12 случайных чисел в Диапазоне [-50;50].
Отсортировать массив по возрастанию и вывести на экран сообщение «Число нечетное», если 3 элемент в отсортированном массиве нечетный, и «Число четное», если 3 элемент четный.
Паскаль
Отсортировать массив по возрастанию и вывести на экран сообщение «Число нечетное», если 3 элемент в отсортированном массиве нечетный, и «Число четное», если 3 элемент четный.
Паскаль
More Questions From This User See All
Answers & Comments
Ответ:
без использования всяких функций
Объяснение:
Pascal
var
a:array [1..12] of integer;
i, j, k:integer;
begin
randomize;
for i:=1 to 12 do
a[i]:=random(101)-50;
print(a);
writeln();
i:=1;
while i <= 12 do begin
for j:= i to 12 do
if a[j]<a[i] then begin
k:=a[j];
a[j]:=a[i];
a[i]:=k;
dec(i);
break;
end;
inc(i);
end;
print(a);
writeln();
if a[3] mod 2 = 0 then
writeln(a[3], ' число четное')
else
writeln(a[3], ' число нечетное')
end.