Question

Дан одномерный массив из 12 случайных чисел в Диапазоне [-50;50].


Отсортировать массив по возрастанию и вывести на экран сообщение «Число нечетное», если 3 элемент в отсортированном массиве нечетный, и «Число четное», если 3 элемент четный.
Паскаль

Answer 1

Ответ:

без использования всяких функций

Объяснение:

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.