Составить программу в паскале. в массиве x(n) каждый элемент равен 0, 1 или 2. переставить элементы массива так, чтобы сначала располагались все единицы, затем все двойки и, наконец, все нули (дополнительного массива не заводить).

170

259

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

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

lokosso

Информатика

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

Const n=10; var a: array[1..n]of integer; i,j,buf: integer; begin for i: =1 to n do begin a[i]: =random(3); write(a[i]: 4); end; {сортирую по возрастанию} for i: =1 to n-1 do for j: =i+1 to n do if a[i]< a[j]then begin buf: =a[i]; a[i]: =a[j]; a[j]: =buf; end; {пересылаю нули в конец масива} for i: =1 to n-1 do for j: =i+1 to n do if a[i]=0 then begin buf: =a[i]; a[i]: =a[j]; a[j]: =buf; end; for i: =1 to n do write(a[i]: 4); end.