1)Написать программу нахождения суммы квадратов чисел от 5 до 25
2) Дан массив А, состоящий из 15 целых чисел. Заполнен с клавиатуры. Найти произведение элементов массива, больших 5.
Паскаль
Ответы
Ответ дал:
0
//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.
//Если программа не запускается, то обновите версию
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.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад