Delphi-Help

Главная Статьи Математика В одномерном массиве найти последний элемент, значение которого не меньше а.

В одномерном массиве найти последний элемент, значение которого не меньше а.

Оцените материал
(2 голосов)


В одномерном массиве найти последний элемент, значение которого не меньше а.

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;
Прочитано 8366 раз

Авторизация



Счетчики