расположить числа в порядке возрастания

[Julila]

дана последовательность из н целых чисел. сформировать из нее последовательность состоящую из нечетных чисел и расположить числа в порядке возрастания.

сессия

[MoBLer]

вот на delphi

uses
  SysUtils;
const m=5;
var
a:array[1..m]of integer;
i,k,l,j:integer;
begin
l:=0;
for i:=1 to m do
begin
readln(k);
if k mod 2 <>0 then begin l:=l+1; a[l]:=k; end;
end;

for i:=l-1 downto 1 do
    for j:=1 to i do
        if a[j]>a[j+1] then
            begin
               k:= a[j];
               a[j]:= a[j+1];
               a[j+1]:=k;
            end;

for i:=1 to l do
write(a[i],' ');


readln;
end.

[kenwood2010]

Реализовано в Visual C++

// 1212.cpp: главный файл проекта.

#include "stdafx.h"
#include <iostream>
#include <conio.h>
using namespace std;


using namespace System;


int main()
{
setlocale(LC_ALL,"Russian");
int mas[10];
int *rez = NULL;
int count = 0;
int k = 0, b;
cout<<"Заполните массив числами: ";
for(int i = 0; i < 10; i++)
{
cin>>mas[i];
}
for(int i = 0; i < 10; i++)
{
	if(mas[i]%2!=0)
	{
		count++;
	}
}
rez = new int [count];
for(int i = 0; i < 10; i++)
{
	if(mas[i]%2!=0)
	{
		rez[k++] = mas[i];
	}
}
cout<<"Массив имеет вид: "<<endl;
for(int i = 0; i <= sizeof(rez); i++)
{
cout<<rez[i]<<" ";
}

for (int i = 0; i < sizeof(rez); i++)
{
   for (int j = 0; j < sizeof(rez); j++)
   {
	   if (rez[j] > rez[j+1]) 
	{ 
		b = rez[j];
		rez[j] = rez[j+1];
		rez[j+1] = b;
	   }
   }
}
cout<<endl<<"Ответ: "<<endl;
for(int i = 0; i <= sizeof(rez); i++)
{
cout<<rez[i]<<" ";
}

delete[] rez;
getch();
return 0;
}

[Julila]

а как на Паскале?

[Mad_Cat]

пост #2
копировать от

const m=5;

до

end.