Дан массив случайных чисел в диапазоне от -10 до 100 заменить чётные элементы нулем

Question

Дан массив случайных чисел в диапазоне от -10 до 100 заменить чётные элементы нулем

Comments

на каком языке?

---

Паскаль, сорри что не дописал 

Answer 1

Program name;const n=10;var a:array [1..10] of integer;i:integer;beginfor i:=1 to n doa[i]:=random(110)-10;for i:=1 to n doif a[i]mod 2=1 then a[i]:=0;end.

Comments

Надо что бы program begin и end было, я болел много и просто всю информатику не знаю, щас думаю что делать, и конспектов нет

---

Program Name;