СРОЧНО ПОЖАЛУЙСТА ,НУЖНО НАПИСАТЬ ПРОГРАММУ. 1.Дан массив чисел ,найти сумму элементов...

Question

СРОЧНО ПОЖАЛУЙСТА ,НУЖНО НАПИСАТЬ ПРОГРАММУ.
1.Дан массив чисел ,найти сумму элементов больше 10 и меньше 20

Answer 1

var a:array[1..N] of integer;

s,K:integer;

begin

readln(K);

for i:=1 to N do readln(a[i]);

for i:=1 to N do

if (a[i] mod K=0) then s:=s+a[i];

write(s);

end. 

Comments

Во второй строчке,так и писать s,k?

---

Да

---

Это что я знаю.

---

Спасибо

---

Не за что)

---

))

---

А что значит N?