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

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

Коментарi

  • Alfredpal

    2017-04-14 02:49:12

    wh0cd751347 [url=http://proscar1.us/]proscar[/url] [url=http://flagyl2.top/]flagyl 400 mg[/url] [url=http://cialis2010.us/]cialis[/url] [url=http://adalat500.top/]adalat[/url] [url=http://synthroid5.top/]synthroid 175[/url]...

  • Bennydip

    2017-04-14 01:19:35

    wh0cd687419 [url=http://apcalis.science/]apcalis sale[/url]...

  • TracyHorne

    2017-04-14 01:09:31

    wh0cd632887 [url=http://viagrageneric.us.org/]generic viagra[/url] [url=http://sildenafilnorx.us.com/]sildenafil tablets 100 mg[/url]...

  • Alfredpal

    2017-04-14 00:21:24

    wh0cd687413 [url=http://bentyl40mg.us.com/]Bentyl 40 Mg[/url] [url=http://celexa2016.us.com/]celexa[/url]...

  • CharlesHoups

    2017-04-13 23:29:51

    wh0cd582415 [url=http://valtrex2017.us.com/]Order Valtrex[/url] [url=http://buyazithromycin.us.com/]azithromycin tablets[/url]...

  • CharlesHoups

    2017-04-13 22:19:57

    wh0cd550450 [url=http://buyventolin6.us/]generic ventolin[/url] [url=http://buytenormin500.top/]continue[/url] [url=http://buycialis-365.us/]buy cialis[/url]...

  • EugeneTit

    2017-04-13 21:42:21

    wh0cd596218 [url=http://prozacnorx.us.com/]Prozac[/url] [url=http://propecianorx.us.com/]propecia[/url] [url=http://viagrageneric.us.org/]viagra generic[/url]...

  • CharlesHoups

    2017-04-13 21:04:07

    wh0cd518485 [url=http://lisinopril2.us/]lisinopril[/url] [url=http://buylisinopril911.top/]get more information[/url] [url=http://indocin3.top/]indocin[/url] [url=http://prednisolone2010.top/]prednisolone[/url]...

  • MichaelThync

    2017-04-13 20:58:17

    wh0cd714987 [url=http://cialisprofessional.us.com/]buy cialis[/url] [url=http://sildenafilnorx.us.com/]Sildenafil No Rx[/url]...

  • TracyHorne

    2017-04-13 20:50:57

    wh0cd536992 [url=http://sildenafilnorx.us.com/]Cheap Sildenafil[/url] [url=http://prozacnorx.us.com/]prozac no rx[/url]...