// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
procedure BubbleSortFlag(a:array of integer); // пузврьковая сортировка с флажком begin var f:=True; // флажок перестановки var p:=1; // номер перестановки var n:=a.Length; while f do begin f:=false; for var i:=0 To n-p-1 Do if a[i]>a[i+1] then begin Swap(a[i],a[i+1]); f:=true end; p+=1 end end;
begin var a:=ArrRandom(10,-10,10); a.Println; BubbleSortFlag(a); a.Println end.
1) Информационный ресурс-это данные в любом виде для получения достоверной информации. Это может файл, фотография, какое-то видео,отдельные массивы документов в информационных системах и так далее. 2) Информационные ресурсы делятся на три вида-государственные(национальные) ресурсы, персональные информационные ресурсы, информационные ресурсы предприятий. 3) МSNBС-представляет новости СШA, АBС Nеws-представляет новости со всего мира на английском языке, Wikiрedia-сетевая энциклопедия на разных языках со всего мира, электронные книги, и многое другое
begin;
for i:=1 to 1000 do
k:=k+i;
writeln(k);
end.