Введите n количество чисел чтоб считала только сумму нечетных чисел а счетных не считала сделайте без массива Сделайте в паскале

var n, i, sum: integer;

begin

//ввод данных

write ('Введите количество чисел n: '); readln (n);

sum:=0; / /обнуление суммы

writeln ('Вводите числа');

While (n>0) do / /цикл ПОКА количество ожидаемых для ввода чисел больше 0

begin

readln (i); / /вводим в одну переменную

if (i mod 2 = 1) then sum:=sum+i; / /и сразу проверяем её на нечётность, ЕСЛИ нечётна = > прибавляем к сумме

n:=n-1; / /уменьшаем количество ожидаемых для ввода чисел

end;

//вывод

write ('Сумма нечётных чисел равна ', sum);

end.