Дан масив А (6) Определить количество положительных элементов.

var i,z,n: integer; s: array [1… 7] of real; beginbeginwriteln ('Vvedite razmernost massiva'); read (n); writeln ('Vvedite elementi massiva'); for i: =1 to n doread (s[i]); z: =0; if (s[1]>0) thenz: =z+1; if (s[2]>0) thenz: =z+1; if (s[3]>0) thenz: =z+1; if (s[4]>0) thenz: =z+1; if (s[5]>0) thenz: =z+1; if (s[6]>0) thenz: =z+1; if (s[7]>0) thenz: =z+1; writeln ('Kolichestvo polojitelnih chlenov massiva=',z); end; end.