Информатика задача паскаль. В массиве X(1:15) каждый элемент равен 0, 1 или 5. Переставить элементы так, чтобы сначала располагались все нули, затем все пятерки. Паскаль.
program Pascal va X: array[1..15] of integer i, j, temp: integer begi // Инициализация массив X := (0, 1, 0, 5, 1, 0, 5, 5, 0, 1, 5, 0, 0, 1, 5);
// Сортировка массив i := 1 j := 15 while i < j d begi while (X[i] = 0) and (i < j) d i := i + 1 while (X[j] = 5) and (i < j) d j := j - 1 if i < j the begi temp := X[i] X[i] := X[j] X[j] := temp end end;
// Вывод отсортированного массив for i := 1 to 15 d write(X[i], ' ') end.
program Pascal
va
X: array[1..15] of integer
i, j, temp: integer
begi
// Инициализация массив
X := (0, 1, 0, 5, 1, 0, 5, 5, 0, 1, 5, 0, 0, 1, 5);
// Сортировка массив
i := 1
j := 15
while i < j d
begi
while (X[i] = 0) and (i < j) d
i := i + 1
while (X[j] = 5) and (i < j) d
j := j - 1
if i < j the
begi
temp := X[i]
X[i] := X[j]
X[j] := temp
end
end;
// Вывод отсортированного массив
for i := 1 to 15 d
write(X[i], ' ')
end.