Дан массив a (n). Найти среднее арифметическое…

Const n=5; var k,i: integer; p,s: real; a: array[1… n] of real; beginfor i: =1 to n do read (a[i]); k: =0; p: =1; s: =0; i: =1; repeatif a[i]<0 then begin p: =p*a[i]; s: =s+a[i]; k: =k+1 end; i: =i+2until i>n; if k>0 then write (s/k,',k,',p) else write (0,',0,',0) end.