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

Question

Информатика

Афрахте

9 июля, 05:17

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

+4

Ответы (1)

Знаете ответ на вопрос?

Мармадьюк · 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 20) and (a[i]<0) then Inc (sum, a[i]) ;

end;

writeln (sum) ;

end.