Помогите решить 1)Дан массив из 20 элементов заполненный случайными целыми числа?
Помогите решить
1)Дан массив из 20 элементов заполненный случайными целыми числа??и из интервала[-10;10].Выведите этот массив в строку и найдите наибольший элемент среди отрицательных элементов массива.
2)Заполнить массив из 15 элементов заполненный случайными целыми числами из интервала от-10 до 10 вывести в строчку ,и повторно вывести в строчку заменив элементы не больше 3 их кубами
PascalABC.NET
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var a:=ArrRandom(20,-10,10); a.Println;
Writeln('Наибольший отрицательный элемент ',
a.Where(x->x<0).Max)
end.
Тестовое решение:
8 -10 -6 -10 6 10 0 4 -6 -7 10 -2 -7 -10 3 -5 0 -9 3 3
Наибольший отрицательный элемент -2
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var a:=ArrRandom(15,-10,10); a.Println;
a.Select(x->x<=3?x*x*x:x).Println
end.
Тестовое решение:
7 -3 5 -5 4 7 2 1 -10 9 -2 -7 4 0 5
7 -27 5 -125 4 7 8 1 -1000 9 -8 -343 4 0 5
Не нашли ответ?
Похожие вопросы