Найти сумму положительных нечетных чисел, меньших 50 (паскаль)

Question

Информатика: Найти сумму положительных нечетных чисел, меньших 50 (паскаль)

Sofia2224 · Answer

var

a : array [1..1000] of longint;

i,n,sum : longint;

begin

Read(n);

for i:=1 to n do Read(a[i]);

sum:=0;

for i:= 1 to n do

if (a[i] mod 2 = 0) and (a[i]<50)

then sum:=sum+a[I];

Writeln(sum);

end.