Лабораторная работа: Создание и обработка линейного массива

Var

Max, Min, Sum, CountPlus: integer;

где Max – максимальный элемент массива, Min – минимальный элемент массива, Sum – сумма всех элементов массива, CountPlus – количество положительных элементов массива. Текст процедуры обработки массива может быть записан следующим образом:

Begin

If CheckBox 1. Checked then Min:= X[0];

Edit3. Text:= ‘»;

If CheckBox2. Checked then Max:= X[0];

Edit4. Text:= ‘»;

Sum:= 0;

Edit5. Text:= ‘»;

CountPlus:= 0;

Edit6. Text:= ‘»;

For I:= 0 to N‑1 do

Begin

If CheckBox1. Checked then

If Min > X[I] then Min:= X[I];

If CheckBox2. Checked then

If Max < X[I] then Max:= X[I];

If CheckBox3. Checked then

Sum:= Sum + X[I];

If CheckBox4. Checked then

If X[I] >0 then CountPlus:= CountPlus + 1;

End ;

{вывод результатов обработки массива}

If CheckBox1. Checked then Edit3. Text:=IntToStr(Min);

If CheckBox2. Checked then Edit4. Text:=IntToStr(Max);

If CheckBox3. Checked then Edit5. Text:=IntToStr(Sum);

If CheckBox4. Checked then Edit6. Text:=IntToStr(CountPlus);

End ;