Дана последовательность n чисел. составить программу определения количества отрицательных чисел последовательности

var n,k,i,a:longint;

begin

k:=0;

readln(n);

for i:=1 to n do begin readln(a); if(a<0) then k:=k+1; end;

writeln(k);

end.

   Село - мала батьківщина багатьох із нас. А ще, батьківщина квітів. Чи не в селі народилися чорнобривці, мальви, ружа,волошки, бузок тая кручені паничі? Квіти - чарівна прикраса сільських господ, вони живі і мають свою мову. Це ж вони оспівані в народних піснях, передають людям почуття ніжності і любові. Ідеш було стежиною, а тобі видзенькують польові дзвіночки: "дзень-дзелень", шепочуться між собою сині сокирки, повертаєш до криниці  а там, бузок залицяється з калиною: "Ой, яка ж ти ніжна та хороша...". А під самим тином бабусиної хати пнуться вгору рожеві мальви: "ми найвищі, найстрункіші", поряд -чорнобривці і собі: "ми не гірші, хоч малі, зате маєм чорні брови" А коли  настане вечір, зійдуться всі квіти і гомонять собі про своє красиве село і навіть не здогадуються ,чому воно їм таке миле та хороше.

#include <iostream>

int main()
{
int
number,
val,
digits;
bool query[2]{false, false};

std::cout << "Введите число: ";
std::cin >> number;

std::cout << std::endl << "Введите цифру, которую нужно найти в числе: ";
std::cin >> val;

while(number)
{
digits = number % 10;
number /= 10;
if(digits == 3)
query[0] = true;
else if(digits == val)
query[1] = true;
}
if(query[0])
std::cout << "Число 3 входит" << std::endl;
else std::cout << "Число 3 не входит" << std::endl;
if(query[1])
std::cout << "Число " << val << " входит" << std::endl;
else std::cout << "Число " << val << " не входит" << std::endl;
}