Обчислення суми значень і кількості елементів табличної величини. (практичне завдання)

Завдання 1

Якщо не має можливості реалізувати програму – до команд напишіть коментарі. (скористайтесь презентацією або підручником)

var

  Form1: TForm1;

  s,n,i:integer;

  a: array[0..6] of Integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

n:=Memo1.Lines.Count;

for i:=0 to n-1 do

a[i]:=StrToInt(Memo1.Lines[i]);

s:=0;

for i:=0 to n-1 do

if a[i]<0 then s:=s+a[i];

Edit1.Text:=IntToStr(s);

end;

end.

Завдання 2

var

Form1: TForm1;

n,i:integer;

 f: Boolean;

  a: array[0..8] of Integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

n:=Memo1.Lines.Count;

for i:=0 to n-1 do

a[i]:=StrToInt(Memo1.Lines[i]);

f:=false;

for i:=0 to n-1 do

if a[i]<3 then

begin

f:=true;

break;

end;

if f=true then Label3.Caption:='число є'

else Label3.Caption:='числа немає';

end;

end.

Завдання 3

var

  Form1: TForm1;

    k,n,i:integer;

  ___: ______[0..35] of ______;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

n:=__________________;

for i:=0 to ______ do

a[i]:=StrToInt(_____________);

k:=0;

for i:=____ to ______ do

if _________ then k:=k+1;

Edit1.Text:=IntToStr(____);

end;

end.