Question

Допишите программу. На вход подается количество элементов последовательности, затем сами элементы последовательности.  Элементы последовательности – это целые числа в диапазоне от -1000 до 1000. Определите, сколько среди них отрицательных элементов?ВходВыход52100 0 -250 -900 450 var i,n,a,k:integer;begin   read (n);   k:=0;   for i:=1 to n do begin      read (a);      if …… then k:=k+1;   end;   write (k);end. Хелп, иначе меня загрызут :) ​

Answer 1

Ответ:

a < 0

Объяснение:

Answer 2

Для определения, сколько среди элементов последовательности являются отрицательными, можно использовать условный оператор if. Внутри цикла for, после считывания значения элемента последовательности, необходимо проверить его значение. Дополните программу следующим образом: var i, n, a, k: integer; begin read(n); k := 0; for i := 1 to n do begin read(a); if a < 0 then // проверка, является ли элемент отрицательным k := k + 1; end; write(k); end. В данном коде после считывания значения элемента a, происходит проверка if a < 0 then, что означает "если a меньше 0". Если это условие выполняется, то к переменной k прибавляется единица, таким образом, переменная k считает количество отрицательных элементов последовательности. Например, для входных данных: 5 21 100 0 -250 -900 450 Результатом работы программы будет число 2, так как среди элементов последовательности есть 2 отрицательных элемента (-250 и -900).