Описание глобальных переменных
var
Form1: TForm1;
n:integer;
a:array of integer;
Текст процедуры для задания массива случайными числами.
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Randomize;
n:=StrToInt(Edit1.Text);
SetLength(a,n);
Edit2.Clear;
for i:=1 to n do
begin
a[i]:=Random(30)-10;
Edit2.Text:=Edit2.Text+' '+IntToStr(a[i]);
end;
end;
Текст процедуры для вычислений и вывода результатов на экране
procedure TForm1.Button2Click(Sender: TObject);
var
sum,i,k,l,a1:integer;
begin
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
a1:=StrToInt(Edit6.Text);
sum:=0;
k:=0;
For i:=1 to n do
if (i mod 2<>0) then sum:=sum+a[i];
If CheckBox1.Checked then Edit3.Text:=IntToStr(sum);
For i:= 1 to n do begin
if (a[i]>a1) and (a[i] mod 5=0) then k:=k+1;
end;
if CheckBox2.Checked then Edit4.Text:=IntToStr(k);
l:=0;
for i:=n downto 1 do begin
if (a[i]<0) and (abs(a[i]) mod 5 = 2) then l:=i;
end;
If CheckBox3.Checked then Edit5.Text:=IntToStr(l);
end;
Экранная форма программы
Рисунок 7. Результат выполнения программы
Список использованной литературы
1. http://wiki.lazarus.freepascal.org - Lazarus wiki энциклопедия по Free Pascal Compiler/Lazarus
2. http://lazarus.freepascal.org - Официальный сайт проекта Lazarus
3. Бобровский С.И.,lazarus. Учебный курс (пособие для самообразования), 2005г.
4. Информатика: Учебник для вузов.- / Под ред. С.В. Симоновича. – СПб.: Питер, 2008.