В одномерном массиве А , состоящий из N действительных элементов , вычислить : a ) сумму...

Question

В одномерном массиве А , состоящий из N действительных элементов , вычислить :
a ) сумму отрицательных элементов массива ;
b ) количество элементов , удовлетворяющих условию 7 Pascal

Comments

можно поконкретнее про пункт б?

---

количество элементов , удовлетворяющих условию -7< i

---

b)количество элементов , удовлетворяющих условию -7<a, i a,<5

---

-7<a<5 ?

---

да

---

готово

Answer 1

Const n=10;
var a:array[1..n] of real;
i,k:integer;
s:real;
begin
s:=0; k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then s:=s+a[i];<br>if (a[i]<5) and (a[i]>-7) then inc(k);
end;
writeln(s,' ',k);
end.

---

Comments

вместо inc(k) можно написать k:=k+1. сути дела не меняет

---

не работает

---

что именно?

---

запускаешь программу и ничего не происходит

---

изменил. забыл вывод счётчика.

---

хз,не хочет, у тебя работает ?кинь вид программы какой получился

---

я же в ответ кинул скрин