Элементы массива(Delphi)

[Nastya2]

Помогите справится с такой вот проблемкой:

дан массив размером 10.Нужно чтобы при нажатии на button выполнялось след-щее:
Сформировать два массива размером 5, включая в первый элементы исходного массива с четными индексами, а во второй - нечетными.

буду оочень благодарна....заранее огромное спасибо....!!!

[veniside]

> такой вот проблемкой

не вижу сути проблемы )

[Nastya2]

ну проблема заключается в написании процедурки...сама пыталась написать...ничего толкового не получается...) массивы в delphi - моё слабейшее место)не поможете?

[memphis92]

как вариант:

var
  Form1: TForm1;
  mas1:array [1..5] of integer;
  mas2:array [1..5] of integer;
  i,n1,n2:integer;
const mas:array [1..10] of integer=(1,2,1,2,1,2,1,2,1,2);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 n1:=0;
 n2:=0;
 for i:=1 to 10 do
   if (i mod 2)=0 then
    begin
     inc(n1);
     mas2[n1]:=mas[i];
    end
   else begin
    inc(n2);
    mas1[n2]:=mas[i];
   end;
end;

[Nastya2]

спасибо...но я вписала эту процедуру, программа при завуске ошибки не выдает, но и при нажатии на кнопку ничего не происходит...

[Nastya2]

кстати элементы массива я ввожу в stringgrid

[VIK_aka_TOR]

а выводить в 2 стрингрида будешь?
и четность\нечетность получается двух индексов одновременно?

[Nastya2]

да...выводить буду в 2 стрингрида
второй вопрос не поняла немного...

[Nastya2]

кароче принажатии на button должны заполнится ещё 2 стрингрида, ордин элементами с четными индексами, другой с нечетными индексами

[VIK_aka_TOR]

сори... у меня обычно если массив то двумерный...немного переутомился)... сча сделаем)