Есть ответ 👍

Написать 3 пути для каждого 1. 2. 3. ​

268
473
Посмотреть ответы 1

Ответы на вопрос:


//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию 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.

Популярно: Информатика