Одновимірні масиви

програми
Задача1. Сортування елементів масиву за зростанням.

uses crt;
const n=15;
var i,j:integer;
a:array[1..n] of integer;
dop:integer;
begin clrscr;
{ заповнення масиву}
for i:=1 to n do
begin
write('vvecti znachenie: ');
readln(a[i]);end;
{сортування елементів мамасиву}
for i:=n-1 downto 1 do
for j:=1 to i do
if a[j]>a[j+1] then begin
dop:=a[j];
a[j]:=a[j+1];
a[j+1]:=dop; end;
writeln('new masiv:');
for i:=1 to n do
writeln(a[i]);end.
Кiлькiсть переглядiв: 5343

Коментарi

  • LewisRet

    2017-07-17 13:25:12

    http://security-lab.info/managing-add-ons-for-chrome.html http://security-lab.info/online-scan-jpg-to-pdf.html http://security-lab.info/extension-google-chrome-capture-video.html http://security-lab.info/google-livros-web-archive.html http://security-lab.info/web-page-security.html...

  • DonaldAppab

    2017-07-17 11:50:08

    чтоб хорошо улучшалась память лечение народными средствами...

  • ErnestoNet

    2017-07-17 02:24:30

    https://kinomir.ml/...

  • JasonLog

    2017-07-17 02:06:29

    https://kinomir.ml/...

  • Carltonkek

    2017-07-17 02:00:56

    https://youtu.be/EBthD9jeCso...

  • MelvinaMort

    2017-07-17 01:59:27

    https://youtu.be/EBthD9jeCso...

  • Stevenhobia

    2017-07-16 23:34:27

    удалось жк солнечная система мысль...

  • Keithtit

    2017-07-16 23:34:03

    нему жк лесобережный политикой судьбе жк лесобережный состояние...

  • Claudeenext

    2017-07-16 23:01:47

    снижение концентрации внимания и памяти медикаментозные средства...

  • WilliamAgerI

    2017-07-16 23:00:00

    препарат увеличение внимания и памяти...