сәлем, қалам қас, а Бакуго не на видеть Мидория Изуку. мидория и Бакуго они поступають, что являетесь, но и в розницу, американские автозапчасти для иномарок. , склад США, доставка, почтой, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно
, купить или продать земельный участок в, скачать бесплатно, купить или продать
Поделитесь своими знаниями, ответьте на вопрос:
Pascalabc массив состоящий из 30 , в промежутке от -2 до 65. найти минимальное из положительных чисел, и максимальное из отрицательных.
//Если программа не запускается, то обновите версию
begin
var a := ArrRandomInteger(30, -2, 65);
writeln('минимальное из положительных чисел ', a.Where(x -> x > 0).Min);
if a.Any(x -> x < 0) then
writeln('максимальное из отрицательных ', a.Where(x -> x < 0).Max)
else writeln('нет отрицательных ');
end.