Задайте массив из 10 элементов с помощью датчика случайных чисел и поменять знак всем...

Question

Задайте массив из 10 элементов с помощью датчика случайных чисел и поменять знак всем нечетным элементам на противоположный.Выведите на экран исходный и измененный результат

Answer 1

//PascalABC.Net 3.2
begin
var a:=arrRandom (random(5, 10), -15, 15); a.Println;
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]*=-1;
a.Println
end.

Comments

Мне нужно в Паскаль 2010 если можно

---

2010?

---

да