составьте программу которая формирует массив из 15 случайных чисел от 10 до 100 и элементы массива состоящих на нечётных числах заменяют на 1
Элементы массива больше чем на 50 заменяет на 0 а остальные на 2

спасибо большое))

constn=15;vara:array[1..n] of integer;i:integer;beginrandomize;for i:=1 to n dobegina[i]:=random(90)+(10);end;for i:=1 to n doif(a[i]>50) then a[i]:=0else a[i]:=2;end;end.С нечетными не смог :(