Программа на Паскале (динамические массивы).
С клавиатуры вводятся натуральные числа, ввод заканчивается числом 0. Нужно вывести на экран эти числа в порядке возрастания.

Можно считать числа в динамический массив, а потом отсортировать его простым обменом.

Программа на PascalABC.NET:
var
a: array of integer;
x, i, j, t, n: integer;
begin
n := 0;
read(x);
while x <> 0 do
begin
SetLength(a, n + 1);
a[n] := x;
n := n + 1;
read(x);
end;

for i := 0 to n - 2 do
for j := i + 1 to n - 1 do
if a[i] > a[j] then
begin
t := a[i];
a[i] := a[j];
a[j] := t;
end;

for i := 0 to n - 1 do
write(a[i], ' ');
end.

Ввод заканчивается числом 0, само число 0 в массив не записывается и не выводится.

0 0 Пожаловаться