Регистрация
k456789
03.10.2022 05:49
Информатика
Есть ответ 👍

мне Завтра олимпиада на носу,по информатике.Если что вот фото​

179
352
Посмотреть ответы 1

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

nbibyf2005
nbibyf2005
4,4(31 оценок)
// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(16,-4,4); a.println;   a.where(t-> t< > 0).aggregate(1,(i,j)-> i*j).println end. пример -2 -1 1 -3 -2 2 0 -4 0 2 4 -2 -4 4 3 -1 73728

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