Известно, что в массиве, состоящем из 10 элементов, заполненном с клавиатуры, есть несколько чисел 5. Найти порядковые номера первого и последнего из них. Известно, что в массиве, состоящем из 10 элементов, заполненном с клавиатуры, есть несколько чисел 5. Найти порядковые номера первого и Последнего из них. (НА ПАСКАЛЕ)

Программа:

Pascal:

const n = 10;  // кол-во элементов в массиве

var

 arr: array[1..n] of integer;

 i: integer;

begin

 for i := 1 to n do  // ввод массива с клавиатуры

 begin

   write('arr[', i, '] = ');

   readln(arr[i]);

 end;

 i := 1;

 while arr[i] <> 5 do i += 1;  // поиск индекса первой 5-ки

 writeln('Индекс первого элемента 5: ', i);

 i := n;

 while arr[i] <> 5 do i := i - 1;  // поиск индекса последней 5-ки

 writeln('Индекс последнего элемента 5: ', i);

end.