Дан массив целых чисел A[1..8]. Найти количество отрицательных элементов массива. (Без структуры "Inc").

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

Программа на PASCAL:

program CountNegativeElements;
var
A: array[1..8] of integer;
i, count: integer;
begin
count := 0;
// Ввод массива
writeln('Введите элементы массива:');
for i := 1 to 8 do
begin
readln(A[i]);
if A[i] < 0 then
count := count + 1;
end;
// Вывод количества отрицательных элементов
writeln('Количество отрицательных элементов: ', count);
end.

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