Умоляю, (pascalabc 9 класс). массив состоит из 30 элементов,в промежутке от -2 до 65. найти минимальное из положительных чисел,и максимальное из отрицательных.
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
// 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