Дан массив а из n целых чисел ,сортировать нечетные элементы массива в порядке убывания(паскаль)

294

458

Посмотреть ответы 2

Ответы на вопрос:

Anastasya156

Информатика

4,4(85 оценок)

Const n = 5; var a: array [1..n] of integer; i,l,m,k: integer; begin for i : = 1 to n do read(a[i]); l : = 1; while l < n do begin while (a[l] mod 2 = 0) and (l < n) do l : = l + 1; if l < n then begin k : = l; m : = a[l]; for i : = l+1 to n do if a[i] mod 2 < > 0 then if a[i] > m then begin m : = a[i]; k : = i end; a[k] : = a[l]; a[l] : = m; l : = l + 1 end; end; for i : = 1 to n do write(a[i],' ') end.