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

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

Коментарi

  • geico

    2018-01-12 03:32:16

    compare auto insurance quotes auto insurance quotes comparison car insurance [url=https://carinsurance.us.org]cheapest auto insurance[/url]...

  • Best Online Loans

    2018-01-12 03:08:53

    speedycash payday payday [url=https://payday.us.com]payday loans[/url]...

  • Personal Loans

    2018-01-12 01:16:07

    payday loan payday loans online cash loans [url=https://loan.us.org]payday advance loans[/url]...

  • White Paper Writer

    2018-01-12 00:19:47

    buy essays do my history homework college essays [url=https://collegeessays.us.com]need help on homework[/url]...

  • Cash Advance

    2018-01-12 00:02:02

    payday advance loan payday payday [url=https://payday.us.com]payday[/url]...

  • Cheap Essays

    2018-01-11 22:45:15

    research paper research paper buy essay online [url=https://researchpaper.us.com]research paper[/url]...

  • Loans Online

    2018-01-11 22:05:07

    online payday loan loan cash loans [url=https://loan.us.org]payday loans[/url]...

  • Online Payday Loans

    2018-01-11 22:04:20

    loan loans cash loan [url=https://loan.us.org]loan[/url]...

  • allstate

    2018-01-11 21:57:06

    compare car insurance compare car insurance quotes compare auto insurance rates [url=https://comparecarinsurance.us.com]compare car insurance[/url]...

  • JimmyMayox

    2018-01-11 21:16:59

    [url=https://alicante-house.ru]новостройки в аликанте[/url]...