Question

Дан одномерный массив, найти сумму всех нечетных отрицательных чисел этого массива. Pascal

Answer 1

var a: array[1..100] of Integer;
n,i,sum,k: Integer;
begin
writeln('Введите кол-во чисел');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(k);
a[i]:=k;
end;
for i:=1 to n do
begin
if (a[i] mod 2<>0) and (a[i]<0) then Inc(sum,a[i]);
end;
writeln(sum);
end.