Вопрос Помогите пожалуйста с задачей в Pascal

[ТимофейТрушка]

Есть одномерный массив Z{zi} ( i = 1,n; n = 15). Диапазон целых чисел [5 ; 35].
Сформировать массив X из элементов массива Z, удовлетворяющих условие zi <= 20.
И упорядочить елементы массива X по убыванию.

 

[Па3я3я]

У тебя есть инстаграм? Давай пообщаемся! -> @tyanolyatyan

 

[Kullo]

var i, j, n, k, temp: byte; z, x: array [1..100] of byte; begin n:=15; k:=0; for i:=1 to n do begin z:=5+random (31); write (z:3); if z <=20 then begin inc(k); x[k]:=z; end; end; writeln; for i:=1 to k do for j:=1 to k do if x > x[j] then begin temp:=x; x:=x[j]; x[j]:=temp; end; writeln; for i:=1 to k do write (x:3) end.

 

[Bajwdsad]

Вчера исполнилось 18!! -> instagram/@tyanolyatyan

 

[наиль]

 

[сергей214356]

У тебя есть инстаграм? Давай пообщаемся! -> @tyanolyatyan