• найти сумму положительных элементов массива, значение которых меньше 10

Ответы 1

  • dracon4ik у вас не полная вроде, нет условия на положительность.

    Вот для pascal.

     

    var x: array [1..100] of Integer; i,n: Integer; s: Integer;

    begin writeln('Skolko elementov'); read(n); s := 0; for i := 1 to n do begin Write('x[', i, '] = '); Readln(x[i]);

    if (x[i] > 0) and (x[i] < 10) then s := s + x[i]; end; Writeln(s);end.

    • Автор:

      jamiya
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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