В однородном массиве А из n элементов найти количество ненулевых элементов и уменьшить положительные элементы на 20.

program zadacha;var i,s: integer;a: array [1..10] of integer; begin writeln ('Введите элементы массива'); for i:=1 to 10 dobeginwrite ('a[',i,']='); readln (a[i]); if a[i]<>0 then s:=s+1; if a[i]>0 then a[i]:=a[i]-20;end; writeln ('В массиве ',s,' не нулевых элемента'); for i:=1 to 10 dowrite (a[i],' ');end.