Var
  a: array [1..10] of real;
  s: real;
  i: integer;
begin
  s:= 0;
  for i:= 1 to 10 do
  begin
   writeln('Введите число');
    readln(a[i]);  //Вводим i-ый элемент массива с клавиатуры
    if a[i] > 0 then s:= s + a[i];  {Если введенный элемент >0, то прибавляем к текущему значению s введенный элемент}
  end;
  writeln('Сумма положительных элементов массива: ', s)
end.