Question

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

Answer 1

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.