Program Summa;
var
  n, i, a, s: integer;
Begin
  
  //Ввод длины массива
  write('Кол-во элементов в массиве -> ');
  readln(n);
  
  //Считываем вводимые элементы и сразу проверяем их на положительность
  s := 0; i := 0;
  for i := 1 to n do
  begin
    write('A(', i, ') = ');
    readln(a);
    if (a > 0) then
      s := s + a;
  end;
  
  //Вывод ответа
  write('Сумма положительных элементов массива: ', s, '.');
  
End.