{* Задача 226 *}

Unit ZADACH226;
Interface
Implementation
Begin
 writeln('Дана таблица вещественных чисел а[1..50]. Найти среднее арифметическое положительных элементов таблицы и минимум абсолютного значения элементов таблицы . Найти их произведение');
End.

Program zadach226;

Uses zadach226.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  i   : longint;
  m   : longint;
  k   : longint;
  a   : Array [1..50] Of real;
  min : real;
  s   : real;
Begin
  clrscr; {* Очищаем экран *}
  textcolor(10); {* Выбрать Светло-зеленый цвет текста *}
  write('введите кол-во элементов таблицы: ');
  readln(m);
  For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
  Begin
    write('a[', i, ']=');
    readln(a[i]);
    If a[i] > 0 Then
    Begin
      s := s + a[i];
      inc(k); {* k++ *}
    End;
    
  End;
  s := s / k;
  writeln('ср. значение положительных элм.: ', s);
  min := abs(a[1]);
  For i := 2 To m Do {* Цикл для i => [2 .. m] *}
    If min > abs(a[i]) Then
      min := abs(a[i]);
  write('произведение : ', s * min);
  readln; {* Приостановка программы. Ожидание Enter *}
End.