Информатика, ПАСКАЛЬ
Напишите программу, перемещающую все нулевые элементы в конец массива
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
Спасибо)
Новые вопросы