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

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

  • EugeneTit

    2017-03-08 23:34:51

    wh0cd623467 [url=http://buy-vpxl.com/]vpxl[/url]...

  • TracyHorne

    2017-03-08 23:16:33

    wh0cd143982 [url=http://medrol.us.com/]solu medrol[/url]...

  • EugeneTit

    2017-03-08 22:25:27

    wh0cd591502 [url=http://buy-levaquin.com/]buy levaquin[/url]...

  • MichaelThync

    2017-03-08 21:17:10

    wh0cd975109 [url=http://buy-sildalis.com/]order sildalis[/url]...

  • MichaelThync

    2017-03-08 20:17:57

    wh0cd943137 [url=http://lamisil.club/]lamisil[/url] [url=http://trental.club/]trental[/url] [url=http://omnicef.club/]omnicef[/url] [url=http://zyprexa.club/]zyprexa[/url] [url=http://himplasia.club/]himplasia[/url]...

  • EugeneTit

    2017-03-08 20:16:04

    wh0cd527572 [url=http://retinamicro.review/]retin-a micro[/url] [url=http://bentyl-liquid.in.net/]bentyl for constipation[/url]...

  • TracyHorne

    2017-03-08 19:46:43

    wh0cd16116 [url=http://revia50mg.us.com/]purchase revia[/url]...

  • AaronPinge

    2017-03-08 16:08:16

    wh0cd582416 [url=http://cleocin247.us.com/]cleocin lowest prices[/url]...

  • EugeneTit

    2017-03-08 15:43:19

    wh0cd367739 [url=http://avana365.us.com/]more info[/url]...

  • Michaelbyday

    2017-03-08 14:54:58

    информация Кликай по ссылке [url=http://prinalogoviy.ru]More info!..[/url]...