Составьте программу которая формирует массив из 15 случайных чисел от 10 до 100 и...

Question

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

Answer 1

Const
n=15;
var
a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(90)+(10);
end;
for i:=1 to n do
if(a[i]>50) then a[i]:=0
else a[i]:=2;
end;
end.
С нечетными не смог :(

Comments

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