Задать массив генератором случайных чисел в диапазоне [-20;10] найти максимальный элемент массива и вывести на экран все нечетные элементы.
Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-20,10); a.Println;
Writeln('max=',a.Max);
Print('Нечетные элементы:'); a.Where(t->t.IsOdd).Println
end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-20,10); a.Println;
Writeln('max=',a.Max);
Print('Нечетные элементы:'); a.Where(t->t.IsOdd).Println
end.
Приложения:
Похожие вопросы
1 год назад
1 год назад