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