Заполнить массив из 15 элементов целыми числами с клавиатуры, и найти количество отрицательных элементов. Программа Паскаль.

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

program NegativeElements;

var
arr: array[1..15] of integer;
i, count: integer;
begin
count := 0;

for i := 1 to 15 do
begin
write('Введите элемент массива ', i, ': ');
readln(arr[i]);

end;

writeln('Количество отрицательных элементов в массиве: ', count);
end.