40 элементов массива найти сумму отрицательных элементов кратных 5

Question

40 элементов массива найти сумму отрицательных элементов кратных 5

Answer 1

Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then<br>s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
end.

Comments

так это итак просто

---

Школьная программа 9-10 класс

---

да

---

плохо понимаю

---

объяснишь мож в скапе пожалуйста??

---

скайпе

---

Не мастер объяснять:D

---

ну хоть как- нибудь

---

Ну давай попробую, скайп пиши)

---

pig0099

Answer 2

For i:=1 to 40 do begin   
if (a[i]<0) and (a[i] mod 5 =0) then k:=k+a[i];    <br>end;   
writeln;   
write('сумма ',k);

Comments

это все?