24.07.2013, 15:17
|
|
Прохожий
|
|
Регистрация: 14.07.2013
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
|
|
Вообщем разобрался во всем, исправил все, кроме 1. У меня почему то все равно за место наименьшего положительного выдает первый элемент массива.
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
A : Array [1..10] Of Integer;
M, C, S, P : Integer;
begin
For I := 1 To 10 Do begin
A[i] := Random(56) - 25;
Memo1.Lines.Add(IntToStr(A[i]));
end;
M := A[1];
C := 0;
S := 0;
P := 1;
For I := 1 To 10 Do
Begin
Inc(C);
S := S + A[i];
If A[i] >= 0
Then
begin
If A[i] < M Then M := A[i];
end
Else
P := P * A[i];
End;
Edit1.Text := 'Min = ' + IntToStr(M);
Edit2.Text:='Avg = '+ FloatToStr(S/C);
Edit3.Text := 'Mul = ' + IntToStr(P);
end;
end.
|