Дан массив из 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.