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

Question

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

Comments

Помогите пожалуйста

Answer 1

Const
n=10;
Var
a: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<br>             begin
               s:=s+a[i];
                k:=k+1;
             end
     end;
writeln;
writeln('S: ',s,'   k:',k);
end.

Comments

Это мой?

---

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

---

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

---

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

---

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