Дан массив В размером 7 элементов, элементы вводятся с клавиатуры:
а)найти произведение всех элементов массива
б)заменить все положительные элементы на их кубы
Помогите, пожалуйста, составить программы, на языке Паскаль.
Ответы
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var b:=ReadArrReal('Введите 7 чисел:',7);
// Первая задача
Writeln('Их произведение равно ',
b.Aggregate(1.0,(x,y)->x*y));
// Вторая задача
b.Select(x->x>0?x*x*x:x).Println
end.
Тестовое решение:
Введите 7 чисел: 3 -5 2 4 -2 -3 1
Их произведение равно -720
27 -5 8 64 -2 -3 1
begin
var b:=ReadArrReal('Введите 7 чисел:',7);
// Первая задача
Writeln('Их произведение равно ',
b.Aggregate(1.0,(x,y)->x*y));
// Вторая задача
b.Select(x->x>0?x*x*x:x).Println
end.
Тестовое решение:
Введите 7 чисел: 3 -5 2 4 -2 -3 1
Их произведение равно -720
27 -5 8 64 -2 -3 1
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад