[shonchakay]

у меня должен быть одномерный массив, выводящее произведение четных элементов массива, но она показывает другие цифры [code][/
спам

Код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TMyForm = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MyForm: TMyForm;

implementation

{$R *.dfm}

procedure TMyForm.Button1Click(Sender: TObject);
var a: array [1..5] of integer ;

var i, p,n, k:integer;

begin
for i:=1 to 5 do
begin
a :=random (11)+1;
end;
p:=1;
k:=5 div 2;
for p:=1 to k do
n:= p* a[i*2];
if p<>0 then
Edit1.Text := FloatToStr(n);

end;

procedure TMyForm.Button2Click(Sender: TObject);
begin
self.Close;
end;

end.