Массив В размером 7,заполняется с клавиатуры. Известно , что в массиве имеются элементы,...

Question

Массив В размером 7,заполняется с клавиатуры. Известно , что в массиве имеются элементы, равные 5. Определить индекс последнего из них. Паскаль​

Answer 1

var B: array [1..7] of integer;

i: integer;

begin

   for i := 1 to 7 do

   begin

       write('Введите ', i, ' элемент: ');

       readln(B[i]);

   end;

   

   for i := 7 downto 1 do

       if B[i] = 5 then

       begin

           writeln(i);

           break;

       end;

end.