{* Задача 491 *}

Unit ZADACH491;
Interface
Implementation
Begin
 writeln('n - натуральное, a[1], a[2],..., a[n] - целые. Заменить все большие 7 члены последовательности числом 7. Найти количество таких членов.');
End.

Program zadach491;

Uses zadach491.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Const {* Константы *}
  n = 100;
Var {* Объявление переменных *}
  a     : Array[1..n] Of integer;
  i     : integer;
  count : integer;
Begin
  ClrScr; {* Очищаем экран *}
  count := 0;
  Randomize;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    a[i] := Random(17);
    Write(a[i] : 4);
  End;
  Writeln; {* Пустая строка *}
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    If a[i] > 7 Then
    Begin
      a[i] := 7;
      Inc(count); {* count++ *}
    End;
    Write(a[i] : 4);
  End;
  Writeln('Всего ', count);
End.