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

програми
Задача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в: 4311

Коментарi

  • GeorgeSmeag

    2017-12-28 14:44:14

    где можно приобрести акции [url=https://skid.by/]где купить дешевую резину[/url]...

  • JamesSit

    2017-12-28 14:44:08

    купоны в минске [url=https://skid.by/products/89491/maslo-pered-snom-s-aromatom-natural-calm-detskoe-johnson-s-baby-200-ml]natural calm аромат[/url]...

  • Haroldprugs

    2017-12-28 14:44:05

    купить в минске [url=https://skid.by/]скидки бай[/url]...

  • VictorCem

    2017-12-28 13:29:24

    porn sex with animals [url=https://offshoreleaks.icij.org/stories/jose-maria-botelho-de-vasconcelos]porn video with children[/url]...

  • Paydayloan

    2017-12-28 13:13:05

    payday loans payday loans payday advance loan [url=https://payday.us.com]payday loans[/url]...

  • go auto insurance

    2017-12-28 12:36:13

    cheap car insurance in michigan car insurance cheap auto insurance [url=https://carinsurance.us.org]auto insurance quotes comparison[/url]...

  • cheap car ins

    2017-12-28 10:51:49

    online auto insurance quotes car insurance quotes comparison car insurance quotes comparison [url=https://autoinsurancequotes.us.com]auto insurance quotes[/url]...

  • Online Payday Loans

    2017-12-28 09:08:54

    direct payday lenders bad credit payday a payday loan [url=https://payday.us.com]payday[/url]...

  • Michaelmem

    2017-12-28 04:11:36

    прелестный вебресурс http://7rc.bz/...

  • best car insurance

    2017-12-28 01:46:47

    home and auto insurance companies auto insurance quotes california auto insurance quotes comparison [url=https://autoinsurancequotes.us.com]auto insurance quotes[/url]...