сформировать массив с помощью Random от -30 до 30.Размер 10 элементов .Сколько в массиве...

Question

сформировать массив с помощью Random от -30 до 30.Размер 10 элементов .Сколько в массиве отрицательных элементов?

Answer 1

Begin
randomize;
for i:=1 to n do
a[i]:random (60)-30;
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1; <br>writeln('k=',k);
end.

язык программирования - Pascal, k - количество отрицательных элементов

Comments

begin / n:=10 / randomize; / for i:=1 to n do / a[i]:random (100); / k:=0; / for i:=1 to n do / if a[i] mod 2=0 then k:=k+1; / writeln ('k=',k); / end.

---

k количество четных

---

спасибо

---

вроде (b-a)+a же

---

только не сейчас, я сплю:)