Question

В заданном массиве m(15) заменить нулевые элементы квадратами их индексов(СРОЧНО!)

Answer 1

Внимание! Если программа не работает, обновите версию Pascal !
begin

var mas:=ArrRandom(15,0,10); mas.Println;

mas.Select((v,i)-> v =0 ? i*i:v).Println;

end.