Задача на языке паскаль! Задан массив С из 10 элементов. Найти номер первого из элементов массива С, имеющего нулевое значение. Если таких элементов нет, вывести соответствующее сообщение.

var

min, i, x : integer; / / объявляем переменные целочисленного типа.

arr : array [1 ... 10] of integer; / / объявляем массив.

Begin

writeln ('Введите 10 целых чисел для заполнения массива:'); / / вывод строки на экран.

for i: = 1 to 10 do / / начало цикла.

begin

readln (arr[i]); / / заполняем элемент массива.

if ((arr[i] = 0) and (x = 0)) then / / если элемент первый нулевой.

begin

min : = i; / / сохраняем номер элемента.

x : = 1; / / нужно, чтобы пропустить второй нулевой элемент, если он будет.

end;

end;

if (x = 0) then writeln ('В массиве нет нулевых элементов.')

else writeln ('Номер первого нулевого элемента массива: ', min);

End.