Задача №907 Первый не больший чем 2,5

Задан массив вещественных чисел. Найти первый элемент массива, значение которого не превышает 2.5.

Входные данные

В первой строке задано количество элементов массива n (0 < n ≤ 100). В следующей строке задано n вещественных чисел.

Выходные данные

Вывести в одной строке сначала индекс найденного первого указанного элемента массива и его значение с 2 десятичными знаками. В случае отсутствия такого элемента в массиве вывести "Not Found" (без кавычек).

Решение

var i, c :integer;
     r :real;
begin
    readln(c);
    for i:=1 to c do
    begin
       read(r);
       if r <= 2.5 then
       begin
           writeln(i, ' ', r:0:2);
           halt(0);
       end;
    end;
    writeln('Not Found');
end.