Дан массив из 7 целых чисел, все элементы меньше 10, заменить на 0 и вывести полученный массив на экран.

Const

N = 7;

var

A: array [1 ... N] of integer;

i: integer;

begin

/ / Ввод и обработка массива

for i : = 1 to N do begin

write ('Введите ', i, ' элемент - > ') ;

readln (A[i]) ;

if (A[i] < 10) then

A[i] : = 0;

end;

/ / Вывод полученного массива на экран

write ('Массив: ') ;

for i : = 1 to N do begin

write (A[i], ' ') ;

end;

end.