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

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.

Начало       ||         \/ /  ввод чисел a, b  /         ||         \/     /                 \         да <     a < b?       > =======> / вывод a  /   \                 /                           ||           ||     нет                           ||           \/                                     \/ / вывод b  / =========> конец

Вместо слов тип укажешь real если массив действительных чисел или integer - если целые числа var a: array[1..10] of тип i,n: integer; max, min, sum: тип begin write('введите количество элементов массива'); readln(n); for i: =1 to n do read(a[i]); max: =a[1]; min: =a[1]; for i: =2 to n do if a[i]> max then max: =a[i]; for i: =2 to n do if a[i]> min then min: =a[i]; sum: =0; for i: =1 to n do if (a[i]> min) and (a[i]< max) then sum: = sum+a[i]; write('сумма элементов массива расположенных между максимальным и минимальным =  ', sum); end.