{* Задача 90 *}

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

Program zadach90;

Uses zadach90.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 с шагом 1 *}
  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.