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

program zadacha;

var i, s: integer;

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

begin

writeln ('Введите элементы массива') ;

for i:=1 to 10 do

begin

write ('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 do

write (a[i],' ') ;

end.