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

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

  • Bennydip

    2017-04-11 07:09:28

    wh0cd312896 [url=http://tretinoinnorx.us.com/]tretinoin no rx[/url]...

  • CharlesHoups

    2017-04-11 05:51:45

    wh0cd664512 [url=http://onlinehydrochlorothiazide.us.com/]hydrochlorothiazide lowest cost[/url]...

  • TracyHorne

    2017-04-11 04:28:57

    wh0cd326685 [url=http://prozacnorx.us.com/]PROZAC PRICE[/url] [url=http://cialisprofessional.us.com/]Cialis Lowest Cost[/url] [url=http://viagrageneric.us.org/]viagra generic[/url]...

  • Alfredpal

    2017-04-11 04:11:16

    wh0cd984184 [url=http://albendazole2.us/]albendazole price[/url] [url=http://indocin4.top/]indocin 50 mg[/url] [url=http://buytenormin2013.us/]tenormin[/url] [url=http://buybupropion1.top/]buy bupropion[/url] [url=http://buyamitriptyline500.top/]buy amitriptyline online[/url]...

  • Emanuelamext

    2017-04-11 03:41:46

    Beauty salon, Lamiderm Apex + Health, Laminine LPGN, Здоровье, Красота, Health USA. Lamiderm - Serum to rejuvenate the skin. Lamiderm apex is a breakthrough in skin science. With our products from LPGN you will be able to have a perfect health where Allopathic medicine can't help! It's a proven fact! Serum skin, huft, face serum, What Is Face Serum, How To Use It, Best Serum for skin, for your face skin" More here:...

  • CharlesHoups

    2017-04-11 02:52:59

    wh0cd568611 [url=http://zoloftonline.us.com/]zoloft online[/url]...

  • Bennydip

    2017-04-11 01:40:26

    wh0cd185036 [url=http://anafranilcost.us.com/]Anafranil 25 Mg[/url] [url=http://eloconcreamgeneric.us.com/]view homepage[/url]...

  • AlexaLyday

    2017-04-11 01:35:27

    Very interesting video guide how to apply for Canadian visa in few minutes, no doubt I'll use it. I can not wait to get my visa to Canada. [youtube]n_Wub3lAVhw[/youtube] [url=https://www.youtube.com/watch?v=n_Wub3lAVhw]ETA Canada Video[/url]...

  • EugeneTit

    2017-04-11 01:13:21

    wh0cd290355 [url=http://prozacnorx.us.com/]prozac no rx[/url] [url=http://propecianorx.us.com/]propecia prices[/url] [url=http://cialisprofessional.us.com/]cialis[/url]...

  • CharlesHoups

    2017-04-11 01:05:15

    wh0cd504678 [url=http://buyinderal2016.top/]inderal[/url] [url=http://buyadvair15.top/]buy advair[/url] [url=http://buylevitra5.top/]your domain name[/url] [url=http://cialis5mg.review/]cialis 5mg generic[/url] [url=http://buytetracycline2017.top/]where to buy tetracycline online[/url]...