Дан одномерный массив из 10 элементов. Подсчитать количество положительных элементов массива. Pascal

Предыдущий
вопрос Следующий
вопрос

program countPositiveElements;

var
arr: array[1..10] of integer;
i, count: integer;

begin
count := 0;

// заполнение массива
writeln('Enter 10 elements of the array:');
for i := 1 to 10 do
begin
readln(arr[i]);
end;

// подсчет положительных элементов
for i := 1 to 10 do
begin
if arr[i] > 0 then
count := count + 1;
end;

writeln('The number of positive elements in the array: ', count);

end.