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

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

Коментарi

  • Justinadhes

    2017-06-30 04:37:16

    Порно toplombard порно анал...

  • Randyreing

    2017-06-30 04:30:42

    Оральный toplombard порно анал...

  • AaronDub

    2017-06-29 23:54:02

    http://www.toplombard.com.ua/ http://www.toplombard.com.ua/ http://www.toplombard.com.ua/ http://www.toplombard.com.ua/...

  • JeffreyCaw

    2017-06-29 23:50:57

    http://www.toplombard.com.ua/...

  • Craighof

    2017-06-29 23:38:11

    Через toplombard порно анал...

  • FelixgaB

    2017-06-29 23:35:16

    ОфисеНемецкое toplombard порно анал...

  • AaronAlall

    2017-06-29 21:21:24

    Вечеринке toplombard порно анал...

  • JamesSoank

    2017-06-29 20:46:02

    [url=http://bit.ly/2kSXFpB]МИРОВАЯ ПОПУЛЯРНОСТЬ[/url] МИРОВАЯ ПОПУЛЯРНОСТЬ [url=http://bit.ly/2kSXFpB]РЕПЛИКА МУЖСКИХ ЧАСОВ[/url]...

  • NathanBus

    2017-06-29 18:24:31

    http://www.toplombard.com.ua/...

  • BrianBum

    2017-06-29 18:24:17

    http://www.toplombard.com.ua/...