Дан массив. Вывести вначале все четные числа в порядке возрастания их индексов, затем - все нечетные в порядке убывания.( Delphi )

[simonte]

Дан целочисленный массив размера N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем — все нечетные числа в порядке убывания их индексов.
код есть:

const
  maxSize=100;
type
  Tarr=array[1..maxSize] of integer;
var
  a:Tarr;
  i,n:integer;
begin
  repeat
    write('Размер массива, не более ',maxSize,' n=');
    readln(n);
  until n in [1..maxSize];
  randomize;
  writeln('Исходный массив');
  for i:=1 to n do
    begin
      a[i]:=random(50);
      write(a[i]:4);
    end;
  writeln;
  writeln('Четные числа массива в порядке возрастания индексов');
  for i:=1 to n do
    if not odd(a[i]) then
      write(a[i]:4);
  writeln;
  writeln('Нечетные числа массива в порядке убывания индексов');
  for i:=n downto 1 do
    if odd(a[i]) then
      write(a[i]:4);
  writeln;
  readln;
end.

но мне надо чтоб программа была с интерфейсом.
чтобы результаты выводились в Memo или listbox...

только delphi



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

Используйте Memo например.
Вместо write(a[и]) вот это

Memo1.Lines.Strings[Memo1.Lines.Count-1]:=Memo1.Lines.Strings[Memo1.Lines.Count-1]+' '+IntToStr(a[i]);

Или промежуточную переменную-строку использовать.
Вместо writeln('что-то') вот это

Memo1.Lines.Add('что-то');

У вас 100 чисел в 1 строку влезет?

[simonte]

Сообщение от type_Oleg

Используйте Memo например.
Вместо write(a[и]) вот это

Memo1.Lines.Strings[Memo1.Lines.Count-1]:=Memo1.Lines.Strings[Memo1.Lines.Count-1]+' '+IntToStr(a[i]);

Или промежуточную переменную-строку использовать.
Вместо writeln('что-то') вот это

Memo1.Lines.Add('что-то');

У вас 100 чисел в 1 строку влезет?

а можно чтоб в каждой строке по одному числу?

[simonte]

меня тревожит вот это write(a[i]:4); оно ж показывает, что для вывода значения a[i] используется 4 позиций. как это в мемо написать "(a[i]:4)"?

[type_Oleg]

Сообщение от simonte

а можно чтоб в каждой строке по одному числу?

Memo1.Lines.Add(IntToStr(a[i]);

..как это в мемо написать "(a[i]:4)"?

То есть, все же - в строку ?
А может словчить, и сделать так ?

a[i]:=random(50)+10;

Чтобы числа были точно 2-значные - от 10 до 59. И будет красиво, а пробел там добавляется +' '+ , можно 2 пробела.

А про readln(n); все ясно, чем заменить? Лучше поле Edit использовать.

n:=StrToInt(Edit1.Text);

[simonte]

только результаты в консоле и результаты в форме не совпадают. вот скрин в консоле

[Serge_Bliznykov]

с чем не совпадают?!
Где программа для работы с формами?!

[type_Oleg]

А с чем должно совпадать? Там же Random, главное, чтобы правильно сортировало.

[simonte]

забыл в memo написать inttostr тоесть Memo1.Lines.Add(IntToStr(a[i]);
исправил теперь все нормально работает. спс)

[Poma][a]

until n in [1..maxSize];

А если увеличить maxSize? Например, равен он 1000..Тогда погорит Ваше решение