Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны - Turbo Pascal (33581)

Формулировка задачи:

Даны натуральное число n, целые числа a1,...,an.Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны.

Решение задачи: «Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны»

Листинг программы

Var A:array[1..100] of integer;
    i,n,s:integer;
Begin
    write('Введите 1<=N<=100: ');readln(n);
    writeln('Введите ',n,' чисел');
    For i:=1 to n do
    Begin
      read(A[i]);
      if (A[i]<0)and odd(A[i]) then s:=s+A[i];
    End;
    writeln('Сумма нечетных и отрицательных чисел = ',s);
    readln;
End.

Объяснение кода листинга программы

В начале кода объявляются переменные A, i, n и s. Переменная A представляет собой массив целых чисел, переменная i используется для итерации по массиву, переменная n служит для ограничения диапазона ввода пользователя, а переменная s используется для хранения суммы нечетных и отрицательных чисел.
1. Затем пользователю предлагается ввести число от 1 до 100. Это число будет использоваться для заполнения массива A.
2. После этого выводится сообщение с просьбой ввести несколько чисел. Для этого используется цикл For, который выполняется от 1 до n.
3. Внутри цикла каждое введенное число считывается в переменную A[i]. Затем проверяется условие: если число A[i] меньше нуля и одновременно нечетное, то оно добавляется к переменной s.
4. По завершении цикла выводится сообщение с суммой нечетных и отрицательных чисел.
5. В конце кода просится ввести любое число, чтобы выйти из программы.