Ответ:

program  z1;

var a:array [1..10] of integer;

i,s:integer;

begin

randomize;

s:=0;

write('Массив:');

for i:=1 to 10 do

begin

a[i]:=random(11)-5;

write(a[i]:4);

if a[i] <> 0 then s:=s+a[i]

end;

writeln;

write('Сумма ненулевых элементов массива равна: ',s);

end.

Объяснение:

Сумма вычисляется если условие значение элемента не равно 0 (a[i] <> 0) истинно.