Задание

Прочитай условие задания и выполни его.

Дана программа, решающая задачу поиска элемента в массиве.

program prog;

var i, n, x: integer;

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

begin

randomize;

for i:= 1 to 50 do

begin

arr[i] := random(50);

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

end;

x:= 10;

n:= 0;

for i := 1 to 50 do if arr[i] = x then n := i;

if n = 0 then writeln('Искомый элемент не найден в массиве')

else writeln('Индекс искомого элемента в массиве: ', n)

end.

Сколько раз осуществляется полный проход по массиву?

Запиши в поле ответа верное число.