"Паскаль" Задать N целых чисел (-Сделано) найти сумму нечетных из них (-Помогите сделать )

Question

"Паскаль" Задать N целых чисел (-Сделано) найти сумму нечетных из них (-Помогите сделать )

- Ученик (214), на голосовании 9 лет назад

PROGRAM FG;

var a,i,n,sum:integer;

begin

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

readln(n);

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

for i:=1 to n do begin

readln(a);

if a>0 then sum:=sum+a;

end;

writeln('сум. нечет чисел =',sum);

end.

Answer 1

Капитан Гугл Искусственный Интеллект (146215) 9 лет назад

a > 0
замени на

a mod 2 = 1

mod - остаток от деления.

Адам МизаушевМыслитель (5410) 9 лет назад

Эх, опоздал)

Krab BarkИскусственный Интеллект (191706) 9 лет назад

Есть стандартная функция odd(a)...

Капитан Гугл Искусственный Интеллект (146215) Есть. А еще inc, dec, high, low и еще десяток обобщенных функций. Но новичкам лучше показывать общий способ, а уже потом тонкости.

Answer 2

Вы не задали n целых чисел, а n раз задали значение переменной а.
Вот:
Var
a: array of integer;
n, c: integer;
Begin
Write('Введите n: ');
Read(n);
Writeln('Введите n целых чисел: ');
For c:= 1 to n do Read(a[c]);
sum:= 0;
For c:= 1 to 50 do
If a[c] mod 2 = 1 do
sum:= sum + a[c];
Writeln('Сумма нечетных чисел = ', sum);
End.

Answer 3

Не особо знаю синтаксис паскаля, но по-моему условие должно быть такое if a%2 !=0