Дан массив 12 чисел. Вывести числа в порядке возрастания.
Написать программу Pascal ABC .

24 Мая 2020 в 19:48
121 +1
0
Ответы
1

program SortArray;

var
arr: array[1..12] of integer;
i, j, temp: integer;

begin
writeln('Enter 12 numbers: ');
for i := 1 to 12 do
readln(arr[i]);

// Sorting the array in ascending order
for i := 1 to 12 do
begin
for j := i + 1 to 12 do
begin
if arr[i] > arr[j] then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
end;

// Displaying the numbers in ascending order
writeln('Numbers in ascending order: ');
for i := 1 to 12 do
write(arr[i], ' ');
end.

18 Апр 2024 в 11:42
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир