Составьте программку одномерного массива (10 ячеек), с поддержкою генератора случайных чисел

Составьте программку одномерного массива (10 ячеек), с подмогою генератора случайных чисел (диапазон от -500 до 500). Отыскать минимальное и наибольшее, значение всего массива, отыскать сумму всех двузначных положительных чисел.

Очень безотлагательно!!!!!!!!!!!

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(10,-500,500); a.Println;
  Writeln('min=',a.Min,', max=',a.Max,', Sп=',
      a.Where(x-gt;x in [10..99]).Sum)
end.

Пример
475 186 243 323 -497 23 -65 -2 180 74
min=-497, max=475, Sп=97
Хурсик Руслан
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт