Написать программу для вычисления суммы элементов заданного числового массива

program massiv6;

02. uses crt;

03. const N=10;

04. type x=array [1 ... N] of integer;

05. var a:x;

06. i:integer;

07. s:integer;

08. begin

09. clrscr;

10. randomize;

11. for i:=1 to N do

12. begin

13. a[i]:=-100+random (201) ;

14. write (A[i]:5)

15. end;

16. writeln;

17. s:=0;

18. for i:=1 to N do

19. if a[i]>0 then

20. begin

21. s:=s+a[i]

22. end;

23. writeln (‘Сумма положительных элементов = ’, s:5) ;

24. readln

25. end.