Составьте Paskal-программу решение следующей задачи:
Задан массив A(n).Найти сумму и количество чётных отрицательных элементов этого массива

Это мой?

это Задан массив A(n).Найти сумму и количество чётных отрицательных элементов этого массива

Спасибо большое

Модульный принцип программирования.Подпрограмм.

Если вас не затруднительно помогите пожалуйста

Constn=10;Vara:array[1..n]of integer;i,S,k:integer; begin    for i:=1 to n do      begin        a[i]:=random(100)-50;        write(a[i]:4);          if (a[i] mod 2=0)and(a[i]<0)then             begin               s:=s+a[i];                k:=k+1;             end     end;writeln;writeln('S: ',s,'   k:',k);end.