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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы