Регистрация
maratizmailov
02.09.2021 15:25
Информатика
Есть ответ 👍

Отсортировать данные по убыванию методом пузырька.

258
305
Посмотреть ответы 2

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

KristinaLando
KristinaLando
4,7(16 оценок)
Const  n = 10; var  a: array[1..n] of integer; i, j, k: integer; begin write ('исходный массив: '); for i : = 1 to n do begin a[i] : = random(100); write (a[i]: 4); end; writeln; writeln; for i : = 1 to n-1 do for j : = 1 to n-i do if a[j] > a[j+1] then begink : = a[j]; a[j] : = a[j+1]; a[j+1] : = k; end; write ('отсортированный массив: '); for i : = 1 to n do  write (a[i]: 4); writeln; readln; end.
Redycter12
Redycter12
4,4(100 оценок)

Объяснение:

1) Ввод:

Write(‘a=’, a)

Вывод:

a=5

2) Ввод:

Write(‘a’)

Вывод:

a

3) Ввод:

Write(a)

Вывод:

5

Популярно: Информатика