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

Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do   
                        readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do   
                        if a[i]<10 then
                                       a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do   
                       write (a[i], ); //Вывод массива на экран
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.