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

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

  • Darrellpleli

    2017-07-20 13:35:12

    Пластиковые окна СОЮЗ МОНТАЖ Пластиковые окна СОЮЗ МОНТАЖ...

  • Dannytek

    2017-07-20 12:10:14

    Купить окна ПВХ в Новосибирске Купить окна ПВХ в Новосибирске...

  • Edwardtit

    2017-07-20 11:55:18

    Пластиковые окна в Новосибирске Пластиковые окна в Новосибирске...

  • deannemq16

    2017-07-20 06:15:42

    Check my new project http://teachersex.purplesphere.in/?stage.katharine erotic ibdia erotic tale free sex videos cosplay erotic kannada erotic stories...

  • ClaytonTrott

    2017-07-19 22:09:18

    тортик из барни и сока...

  • EdwardGiple

    2017-07-19 22:06:16

    купить корзину подарочную...

  • Josephtut

    2017-07-19 22:00:55

    букеты из полимерной глины цена...

  • Alvinbleta

    2017-07-19 17:41:13

    порно...

  • RonaldJex

    2017-07-19 17:39:35

    порно...

  • Robertgaurl

    2017-07-19 17:39:18

    букет из алкоголя для мужчины...