• найдите сумму всех положительных элементов одномерного массива

Ответы 1

  • var a: array[1..20] of integer;s,i: integer;begin

    s := 0; for i := 1 to 20 do begin a[i] := random(40)-20; if a[i] >0 thens := s+a[i]; write(a[i]:4); end; writeln; writeln(s);end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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