Переставить элементы массива так, чтобы располагались все нули, затем все единицы, и, наконец, все двойки - Turbo Pascal

  1. Помогите пожалуйста решить задачу: В массиве х(12) каждый элемент равен 0, 1 или 2. Переставить элементы массива так, чтобы располагались все нули, затем все единицы, и, наконец, все двойки.


textual

Код:

Var
  x: Array [1..12] of Byte;
  i,j,tmp: Byte;
BEGIN
Randomize;
Writeln('Исходный массив:');
For i:=1 to 12 do
begin
  x[i]:=Random(3);
  Write(x[i],' ');
end;
For i:=1 to 11 do
begin
  For j:=i+1 to 12 do
  If x[i]>x[j] Then
  begin
    tmp:=x[i];
    x[i]:=x[j];
    x[j]:=tmp
  end;
end;
Writeln;
Writeln('Полученный массив:');
For i:=1 to 12 do
Write(x[i],' ');
Readln
END.


Похожие ответы
  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Дана целочисленная матрица размерности (nxn ). 1. Если элементы, стоящие на главной диагонали являются четными числами, то к каждому максимальному элементу столбца добавить минимальный элемент соответствующей строки. В противном случае матрицу оставить без изменения.

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом линейного выбора с подсчётом

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.

  1. Здравствуйте, такая задача. Есть матрица (n на 2n) . Найти номер первой строки все элементы которой кратны 5. Использовать только цикл while. Поиск решения сделать с процедурой. Входные данные и результат выписать в текстовый файл. Я написал саму программу. Однако появилась такая проблема. После считывания данных программа не закрывается (остается висеть черным окном). После пошаговой проверки оказалось, что проблема в процедуре. Наверное, нет выхода из цикла. Помогите, пожалуйста найти ошибку.

  1. Дан двумерный массив размером МxN заполненный случайным образом. Определите, есть ли в данном массиве столбец, в котором все элементы четны и положительны

  1. Помогите дописать в задаче сортировку пузырьком и если можно с пояснением как она будет применяться. Условие задачи: Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы матрицы, расположить их в соответствии с ростом характеристик. Вот какой кусок кода получился у меня (Программу я стал писать через процедуры и функции), что бы легче было понять мою идею, я оставлю сбоку к элементам когда свои комментарии:

  1. В массиве Z1, Z2,…, Z30 найти минимальный из элементов, стоящих на нечётных местах. Домножить на него все элементы, расположенные до найденного минимального.

  1. Решите, пожалуйста. Найти все неповторяющиеся элементы двумерного массива целых чисел размерностью 6*3. Заполнение массива осуществить с клавиатуры.