В одномерном массиве найти последний элемент, значение которого не меньше а.
procedure TForm1.Button1Click(Sender: TObject);
var i,a:integer; begin
a:=StrToIntDef(edit1.Text,1); //переводим значение из едит в integer
for i:=0 to high(mas) do begin
label1.Caption:=label1.Caption+' '+IntToStr(mas[i]);
//выводим весь массив (для наглядности) if mas[i]>=a then
//проверяем что бы текущий элемент массива был не меньше
// заданного нами
label2.Caption:=IntToStr(mas[i]); //выводим этот элемент end;
end; |