1) вывести на экран все элементы массива, стоящие на четных местах. 2) найти сумму элементов массива, стоящих на нечетных местах. 3) дан одномерный массив размерностью 15, найти максимальный элемент массива, заменить его числом "0", а затем вывести на экран полученный массив (в строку). паскаль
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Where((x,i)->i.IsOdd).Println; // для №1
Writeln('Сумма =',a.Where((x,i)->i.IsEven).Sum); // для №2
end.
Пример
n= 13
-2 33 -49 49 50 -48 -11 27 47 10 17 22 38
33 49 -48 27 10 22
Сумма =90
№3
begin
var a:=ArrRandom(15,-99,99); a.Println;
a[a.IndexMax]:=0; a.Println
end.
Пример
34 -62 -42 98 44 -56 9 -69 85 55 -86 -32 83 -94 -19
34 -62 -42 0 44 -56 9 -69 85 55 -86 -32 83 -94 -19