Составьте программу которая формирует массив из 14 случайных чисел, принадлежащих промежутку [-20, 30], заменяет все чётные значения элементов массива квадратами их номеров
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию! // Индексация с "1", если номера даются, начиная с "0", заменить (i+1)*(i+1) на (i*i)
begin var a:= ArrRandom(14,-20,30).Println.Select((v,i)->v.IsEven?(i+1)*(i+1):v).Println; end.
// Внимание! Если программа не работает, обновите версию!
// Индексация с "1", если номера даются, начиная с "0", заменить (i+1)*(i+1) на (i*i)
begin
var a:= ArrRandom(14,-20,30).Println.Select((v,i)->v.IsEven?(i+1)*(i+1):v).Println;
end.
Пример:
28 -12 -8 21 -16 11 3 21 11 -13 26 4 -19 23
1 4 9 21 25 11 3 21 11 -13 121 144 -19 23