Дан массив из 20 целых чисел, все элементы меньше 10 заменить на 0, и вывести получившиеся массив

program zz1;

var mas:array[1 ... 20] of integer;

i, p, max:integer;

begin

for i:=1 to 20 do / /получаем исходный массив случайным образом от 1 до 20

mas[i]:=random (20) + 1;

for i:=1 to 20 do

write (mas[i]:5); / /выводим полученный массив на экран

writeln; / /переходим на другую строку для вывода

for i:=1 to 20 do

if mas[i]<10 then mas[i]:=0; / /проверяем, если число из массива меньше 10, то на его место записываем 0

for i:=1 to 20 do

write (mas[i]:5) / /выводим полученный массив (:5 это пять позиций для одного числа)

end.