Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.