Информатика. Часть 1. Мойзес О.Е - 119 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

119
Начало
Ввод С
i
k=i
C
k
>C
j
k=j
a=C
i
C
i
=C
k
C
k
=a
i=1, n-1
j=i+1, n
да
Вывод C
i
Конец
нет
Program Sort;
var C:array[1..5]of
integer;
a,i,j,k:integer;
const n=5;
Begin
for i:=1 to n do
readln(C[i]);
for i:=1 to n–1 do
begin
k:=i;
for j:=i+1 to n do
if C[k]>C[j] then k:=j;
a:=C[i];
C[i]:=C[k];
C[k]:=a;
End;
for i:=1 to 5 do
writeln(C[i]);
End.

Страницы