Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны - Turbo Pascal (33581)

Формулировка задачи:

Даны натуральное число n, целые числа a1,...,an.Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны.

Код к задаче: «Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны - Turbo Pascal (33581)»

textual
Var A:array[1..100] of integer;
    i,n,s:integer;
Begin
    write('Введите 1<=N<=100: ');readln(n);
    writeln('Введите ',n,' чисел');
    For i:=1 to n do
    Begin
      read(A[i]);
      if (A[i]<0)and odd(A[i]) then s:=s+A[i];
    End;
    writeln('Сумма нечетных и отрицательных чисел = ',s);
    readln;
End.

10   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ