procedure TForm1.Button2Click(Sender: TObject); {обработка массива} var Max, Min, Sum, CountPlus:integer; {результаты обработки массива}
begin if CheckBox1.Checked then Min:=M[0]; {пусть 0-й элемент - Min}
Edit3.Text:=' '; if CheckBox2.Checked then Max:=M[0]; {пусть 0-й элемент - Max}
Edit4.Text:=' '; Sum:=0; {обнулить значения Sum}
Edit5.Text:=' '; CountPlus:=0; {обнулить значения суммы положительных элементов}
Edit6.Text:=' '; for I:=0 to N-l do begin if CheckBox1.Checked then {определить минимальный элемент массива}
if Min>M[I] then Min:=M[I]; ifCheckBox2.Checkedthen {определить максимальный элемент массива}
if Max if CheckBox3.Checked then {суммировать элементы массива}
Sum:=Sum+M[I]; if CheckBox4.Checked then {суммировать положительные
элементы массива}
if M[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;
16. Задавая различные значения числа элементов массива и щелкая мышью на кнопке Создать массив, убедитесь в правильной работе процедуры защиты от ввода нечисловых данных в Edit1 и генерации массива случайных целых чисел.
17. Выбирая варианты обработки массива установкой соответствующих флажков CheckBox, как показано на рис. 6.1, и щелкая мышью на кнопке Вычислить, убедитесь в правильности работы процедуры обработки массива.
