Подсчитать количество отрицательных элементов массива, состоящего из целых элементов....

Question

Подсчитать количество отрицательных элементов массива, состоящего из целых элементов. паскаль. ПЛЗ

Comments

хорошо, при каком условии нужно остановится на заполнении массива?

---

хз

---

меня на уроке не было

---

окей, что-нибудь сейчас придумаю

---

сейчас

---

жду )

---

жду)))

---

жду(

---

жду((

---

подойдет?

Answer 1

program massiv;

uses crt;

type Mass = array of Integer;

var

n, i, x : integer;

mas : mass;

begin

WriteLn('Сколько значений нужно поместить в массив?');

readLn(n);

SetLength(mas, n);

for i := 0 to n-1 do

begin  

WriteLn('Введите ' + i + ' элемент в массив');

readln(mas[i]);

end;

for i := 0 to n-1 do

if(mas[i] < 0) then

x:= x +1;

WriteLn('Всего отрицательных элементов = '+ x);

ReadLn();

end.