Сортування елементів масиву. Інтерактивна програма

Опис документу:
Програма покроково демонструє сортування одновимірного масиву. На мові Паскаль. Пристрої зі штучним інтелектом дуже часто використовуються при виконанні завдань які людина в принципі виконати не може, або виконання є небезпечним для здоров’я.

Відображення документу є орієнтовним і призначене для ознайомлення із змістом, та може відрізнятися від вигляду завантаженого документу. Щоб завантажити документ, прогорніть сторінку до кінця

Оберіть документ з архіву для перегляду:
47,011 Кб
13,545 Кб
Перегляд
матеріалу
Отримати код Поділитися

program Sort;

uses wincrt;

const n = 10;

var i,j,с : integer;

A : array [1..n] of integer;

begin

for i:=1 to n do begin

writeln ('Введіть ',i,' - ий елемент масиву');

readln (A[i]);

end;

writeln(' Масив до сортування ');

for i := 1 to n do write(A[i] : 4);

writeln;

for j := 1 to n - 1 do begin

for i := 1 to n do begin

if A[i] > A[i+1] then begin

c := A[i+1];

A[i+1]:=A[i];

A[i] := c ;

end; end; end;

writeln(' Масив після сортування');

for i := 1 to n do write(A[i] : 4);

end.

Перегляд
матеріалу
Отримати код Поділитися

program Sort;

uses wincrt;

const n = 10;

var i,j,с : integer;

a : array [1..n] of integer;

begin

for i:=1 to n do begin

writeln ('Введіть ',i,' - ий елемент масиву');

readln (a[i]);

end;

writeln(' Масив до сортування ');

for i := 1 to n do write(a[i] : 4);

writeln;

for j := 1 to n - 1 do begin

for i := 1 to n - j do begin

if a[i] > a[i+1] then begin

c := a[i+1];

a[i+1]:=a[i];

a[i] := c ;

end; end; end;

writeln(' Масив після сортування');

for i := 1 to n do write(a[i] : 4);

end.

Зверніть увагу, свідоцтва знаходяться в Вашому особистому кабінеті в розділі «Досягнення»

Всеосвіта є суб’єктом підвищення кваліфікації.

Всі сертифікати за наші курси та вебінари можуть бути зараховані у підвищення кваліфікації.

Співпраця із закладами освіти.

Дізнатись більше про сертифікати.

Приклад завдання з олімпіади Українська мова. Спробуйте!
До ЗНО з ГЕОГРАФІЇ залишилося:
0
2
міс.
0
9
дн.
2
0
год.
Готуйся до ЗНО разом із «Всеосвітою»!