Задан одномерный массив из n элементов. Найти сумму всех неотрицательных…

Program project1; usescrt,math; constn=10; var s: real; i: byte; a: array [1… n] of integer; begin for i: =1 to n do begin writeln ('vvedite ',i,' cifru'); readln (a[i]); end; for i: =1 to n do begin if (a[i] <= 0) then s: =s+a[i]; end; writeln ('summa vseh: ',s: 2:2); readln; end.