Заполнить и вывести массив из 15 чисел так чтобы значения элементов массива были четные...

Question

Заполнить и вывести массив из 15 чисел так чтобы значения элементов массива были четные числа

Answer 1

Var mas: array [1..15] of integer;
var i: integer;
begin
for i:=1 to 15 do  
begin 
mas[i]:=random(101); 
if mas[i] mod 2<>0 then inc (mas[i]); 
write (mas[i], ' '); 
end;
end.

---