Question

Умоляю, помогите (PascalABC 9 класс).
массив состоит из 30 элементов,в промежутке от -2 до 65.
Найти минимальное из положительных чисел,и максимальное из отрицательных.

Answer 1

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin 
  var a:=ArrRandom(ReadInteger('Введите размер массива->'),-2,65); a.Println; 
  Println(a.Where(e->e>0).Min); 
  Println(a.Where(e->e<0).DefaultIfEmpty.Max); 
end.

Пример(1):

Введите размер массива-> 10
5 22 21 20 40 9 58 57 54 -2
Минимальное среди положительных: 5 
Максимальное среди отрицательных: -2 

Пример(2):

Введите размер массива-> 10
26 7 13 60 39 62 24 9 20 11
Минимальное среди положительных: 7 
Максимальное среди отрицательных: 0