Дан одномерный массив Zn. Удалить все элементы массива с четными индексами ( Надо решить в Delphi )

[Алексей 21]

Дан одномерный массив Zn. Удалить все элементы массива с четными индексами. Дописать в конец массива сумму положительных элементов массива

[Mad_Cat]

i:=1;k:=1;s:=0;
while i<=n do
begin
if i mod 2 <>0 then begin
x[k]:=z[i];k:=k+1;end;
if a[i]>0 then s:=s+a[i];
i:=i+1;
end;
k:=k+1;x[k]:=s;
for i:=1 to k do
writeln(x[i]);

[Алексей 21]

Только надо его в Delphi Application

[Stilet]

А какая разница? Создай форму. Запиндюрь этот код в событие OnCreate, но вместо writeln(x[i]); используй ListBox.Items.Append(БлаБлаToStr(x[i])); Не забыв кинуть на форму ListBox.
Выглядеть может так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
const n=10;
var i,k,s:integer; x,z,a:array[1..n] of integer;
begin
  i:=1;k:=1;s:=0;
  while i<=n do  begin
  z[i]:=random(10);
  if i mod 2 <>0 then begin
  x[k]:=z[i];k:=k+1;end;
  if a[i]>0 then s:=s+a[i];
  i:=i+1;
  end;
  k:=k+1;x[k]:=s;
  for i:=1 to k do
   ListBox1.Items.Append(IntToStr(x[i]));
end;

end.

Или... постой! О_о О ужос!! Ты этого не умеешь?