помогите решить задачу по информатике в pascal

Question

вот условие " напишите программу которая заполняет массив состоящий из 10 элементов и выдаёт количество не 0 элементов и их среднее арифметическое"

Олег · Accepted Answer

k:=0; s:=0;
for i:=1 to 10 do begin
a[i]:=random(21)-10;
if a[i]<>0 then begin
inc(k); inc(s,a[i]) end;
s:=s/k;