Дан массив состоящий из 20 элементов. Найти сумму и кол-во элементов отрицательных…

Program n1; Uses CRT; Const n=20; Var a: array[1… n] of integer; i,k,s: integer; beginFor i: =1 to n dobegin; a[i]: =random (50) -25; write (a[i],'); if (a[i] mod 5=0) and (a[i]<0) then begin k: =k+1; s: =s+a[i]; end; end; writeln ('Kolichestvo=',k,' Summa=',s); readlnend.