{* Задача 20 *}

Unit ZADACH20;
Interface
Implementation
Begin
 writeln('Дана последовательность неотрицательных чисел, последнее из которых равно нулю; причем равных нулю чисел в последовательности нет. Найти среднее арифметическое всех положительных чисел, не превосходящих заданное число Z. ');
End.

Program zadach20;

Uses zadach20.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : Array[1..20] Of integer;
  z : integer;
  i : integer;
  с : integer;
  s : real;
Begin
  For i := 1 To 20 Do {* Цикл для i => [1 .. 20] *}
    read(a[i]);
  read(z);
  s := 0;
  c := s;
  For i := 1 To 20 Do {* Увеличиваем i от 1 до 20 с шагом 1 *}
    If a[i] > 0 Then
    Begin
      c := c + 1;
      s := s + a[i];
    End;
  s := s / c;
  write©;
End.