// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию! begin var a:= ArrRandom(10, -100, 100);a.Println; Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count); Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum); Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average); if a.Where(t -> t > 0).Count > 0 then Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max) else Writeln('Положительных чисел нет');
По всей видимости, нужно объяснить что выведет данная программа... Давай анализировать и разбираться. Мы создаем целочисленную переменную n, которую потом в цикле будем наращивать на "1". Такие переменные называют "Счетчик" Далее, создаем переменную s, равную 512, и пока она больше или равна нулю, мы отнимаем от нее "20". Посчитаем, сколько раз нужно отнять 20 от 512, чтобы получилось число меньше нуля: 512 / 20 = 25 и +"1" = 26, т.к. условие содержит "=". 26 раз мы увеличим переменную n, это и будет наш ответ
где текст давай