Информатика, вопрос задал wavidze , 7 лет назад

Информатика, ПАСКАЛЬ
Напишите программу, перемещающую все нулевые элементы в конец массива
80 очков, помогите пожалуйста!!!!

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

Ответил XIZOR
0

const n = 10;

var

 mas: array [1..n] of integer;

 i,j,h:integer;

begin

randomize;

for i := 1 to n do

 begin

   mas[i] := random(3);

   write(' ',mas[i],' ');

 end;

 writeln();

for i := 1 to n - 1 do

 for j := 1 to n - i do

   if(mas[j] = 0) then

     begin

       h := mas[j];

       mas[j] := mas[j + 1];

       mas[j + 1] := h;

     end;

for i := 1 to n do

   write(' ',mas[i],' ');

end.

Ответил XIZOR
0
Кратко суть программы: объявляем массив n чисел и остальные необходимые переменные для обращения к массиву и для перетаскивания элементов массива. Забиваем в массив рандомные числа и выводим. С помощью метода пузырька(что это, найдешь в инете) находим нули и отправляем на "дно". Выводим массив.
Ответил wavidze
0
Спасибо)
Новые вопросы