Решить любую из двух задач. Если две - то спасибо :)1) В одномерном массиве встречаются нули. Согнать их всех в одну сторону.(задача на пузырьковый метод)2) После ввода одномерного массива: -сначало идут положительные по во...
Решить любую из двух задач. Если две - то спасибо :)
1) В одномерном массиве встречаются нули. Согнать их всех в одну сторону.(задача на пузырьковый метод)
2) После ввода одномерного массива:
-сначало идут положительные по возрастанию -потом все нули -потом все отрицательные чила по возрастанию Пример:-1 5 -7 0 3 0 -2 6 8 вывод: 3 5 6 8 0 0 -7 -2 -1 Помогите, очень прошу вас.
Гость
Ответ(ы) на вопрос:
ГостьЯ хотел через процедуру сделать, чтобы ты могла ей пользоваться и дальше... Но не удалось:( Впрочем, вторая программа, в прикреплении, работает, проверил:з
А это первая:)
var a: array [0..9] of integer;
i, j, temp: integer;
begin
for i := 2 to 8 do
begin
a[i] := random(11) - 5;
writeln('[', i, '] => ', a[i]);
end;
a[0] := 0;
a[1] := 0;
a[9] := 0;
writeln();
for i := 0 to 9 do
for j := 0 to 8 do
if (a[j] = 0) then
begin
temp := a[j];
a[j] := a[j + 1];
a[j + 1] := temp;
end;
for i := 0 to 9 do writeln('[', i, '] => ', a[i]);
end.
Не нашли ответ?
Похожие вопросы