Помогите доделать программу в Делфи!!!!!
1. Найти количество элементов массива, меньших величины С, введенной с клавиатуры.
2. Найти сумму целых частей элементов массива, расположенных после последнего отрицательного элемента.
3. Преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающиеся от максимального не более чем на 20%, а потом — все остальные
Часть программы уже есть:
unit UnitVector;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Buttons;
type
TformVector = class(TForm)
sgVectorInput: TStringGrid;
btnVectorInput: TButton;
Label1: TLabel;
editVectorSize: TEdit;
btnVectorSize: TBitBtn;
btnRandomVector: TButton;
Button1: TButton;
Label2: TLabel;
Edit1: TEdit;
procedure btnVectorInputClick(Sender: TObject);
procedure btnVectorSizeClick(Sender: TObject);
procedure btnRandomVectorClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
formVector: TformVector;
A : array[1..100] of integer;
SizeA : integer;
implementation
{$R *.dfm}
procedure TformVector.btnRandomVectorClick(Sender: TObject);
var i : integer;
begin
Randomize;
for i := 0 to SizeA - 1 do
begin
A[i]:=random(100)-30;
sgVectorInput.Cells[i,0]:=IntToStr(A[i]);
end;
end;
procedure TformVector.btnVectorInputClick(Sender: TObject);
var i : integer;
begin
for i := 0 to SizeA - 1 do A[i]:=StrToInt(sgVectorInput.Cells[i,0]);
end;
procedure TformVector.btnVectorSizeClick(Sender: TObject);
begin
SizeA:=StrToInt(editVectorSize.Text);
sgVectorInput.ColCount:=SizeA;
end;
procedure TformVector.Button1Click(Sender: TObject);
B,C: integer
begin
B:=0;
a[i]< StrToInt(edit1)
end;
procedure TformVector.FormCreate(Sender: TObject);
begin
SizeA:=10;
end;
end.