написать программку на языке паскаль подсчета суммы всех отрицательных элементов массива

Написать программку на языке паскаль подсчета суммы всех отрицательных частей массива размерностью 100 частей

Задать свой вопрос
Василиса Аржанкина
Размерность массива - это количество его измерений (одномерный, двумерный и т.д.). А количество элементов - это размер. Как говорится, почувствуйте разницу!
1 ответ
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  Print('Отрицательных:',ArrRandom(100,-50,50).Println
      .Where(x-gt;xlt;0).Count)
end.

Тестовое решение:
-22 8 50 -18 -37 -43 3 -18 50 -2 -33 -23 -32 41 -37 -6 -20 0 -14 40 6 -43 20 25 4 12 -1 -36 -44 -46 9 35 12 30 19 1 -36 8 -30 23 -48 38 47 34 -50 -47 27 48 -31 -13 46 -46 -42 29 -43 -29 38 -26 28 2 9 -12 -25 46 40 -17 15 -12 -28 12 -21 22 -20 13 37 19 -39 37 25 1 35 1 45 19 -42 4 26 34 23 -3 14 41 31 19 -36 15 12 -49 45 18
Отрицательных: 42
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт