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

Ответы 1

  • var a: array[1..100] of Integer;n,i,sum,k: Integer;beginwriteln('Введите кол-во чисел');readln(n);for i:=1 to n dobeginwriteln('Введите ',i,' число');readln(k);a[i]:=k;end;for i:=1 to n dobeginif (a[i] mod 2<>0) and (a[i]<0) then Inc(sum,a[i]);end;writeln(sum);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years