составьте программу которая заполняет массив B[1..16]случайными целыми числами в диапозоне от -10 до 20 и определяет колличество чисел кратных 5 и их

Заполните массив 11 произвольных целыми числами,введя их с клавиатуры и найдите среди их количество и сумму отрицательных

я попросила в личку 0:

как ?

Заполните массив 15 произвольными числами введя их с клавиатуры и вычислите среднее арифметическое отрицательных

вот последняя реши пожалуйсто !

varB:array[1..16] of integer;k, i: integer;beginfor i:=1 to n do   begina[i]:=random(-10,20);if (a[i] mod 5)=0 then beginwriteln(a[i]); writeln(i); end; end;end.