Составьте программу. (информатика 11 класс) чтоб потом ввести в PascalABC

139

338

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

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

Treed1

Информатика

4,6(85 оценок)

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию begin writeln('суммa квадратов чисел от 5 до 25 =', range(5, 25).select(x -> x * x).sum); writeln; var a : = arrgen(15, i -> readinteger('a[' + i.tostring() + ']='), 1); writeln('произведение элементов массива, больших 5 =', a.where(x -> x > 5).aggregate(1, (x, y)-> x * y)); end.