uses crt;
const n=10;
var a: array[1..n] of integer;
i,j,k: byte; c: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do begin
a[i]:=random(19)-9;
write(a[i]:3); end; writeln;
k:=0; for i:=1 to n-1 do f
or j:=i+1 to n do if a[i]>a[j] then begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
inc(k);
end;
writeln('результат сортировки: ');
for i:=1 to n do write(a[i]:3);
writeln;
writeln('кол-во перестановок = ',k);
end.
"Я самый главный!"- заявил монитор, на мне возникает информация и изображения.
"Нет, я самая главная,- сказала клавиатура, без меня никак, не сможешь ничего оттреадактировать,вбить информацию в память, общаться - да вообще ничего!"
Но память возразила : " Ээх вы, я тут главнее всех, как вы без меня! Ничего не сохранишь, не запомнишь, да в общем без меня очень сложно что-то представить!"
"Да вы что? - начал возмущаться процессор, - Главных не должно быть, мы все представляем собой одно целое!" Так они и воссоединились и представляют собой одну частичку главного .