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

ТимофейТрушка · 5 Дек 2018

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

Па3я3я · 5 Дек 2018

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

Kullo · 5 Дек 2018

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 · 5 Дек 2018

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

наиль · 5 Дек 2018

сергей214356 · 5 Дек 2018

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

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

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

Па3я3я

Kullo

Bajwdsad

наиль

сергей214356

Похожие темы