Дан целочисленный массив размера n. найти количество отрицательных элементов массива.

Program minus;
Var
A: array(1..100) of longint;
I:integer;
Begin
For i:=1 to length(A) do begin
If A[i] < 0 then writeln(A[i]);
End;
End.

Представим слова, как числа в 3сс, (где А=0, О=1, У=2.)
Тогда:
 00000  1место  
О 00001   2место
   

на 101 (10сс) месте будет стоять число 100 (10сс)
100 (10сс) =10201 (3сс) =ОАУАО
на 125 (10сс) месте 124(10сс) =11 121 (3сс) =ОООУО
на 170(10сс) месте  169(10сс) = 20021 (3сс) =УААУО
на 210 месте    209 (10сс) =21202 (3сс) =УОУАУ

первое число, которое начинается с "О" =О=10000 (3сс) =
 =81 (10сс),
 номер его места =82 (10сс)
последнее, которое начинается на "О"  =О=12222 (3сс) =
=161 (10сс), номер его места =162(10сс)

Pascal: 
var
    n    : integer;
begin
    if n >= 100 then 
        write('Да, трехзначное');
    else 
        write('Нет, не трехзначное');
    readln; readln;  // для паузы
end.

p.s. За синтаксические ошибки не отвечаю


C++:

#include <iostream>

int main() {
    //Если нужен русский язык на выводе написать здесь: setlocale(LC_ALL, "rus");
    int n;
    cin >> n;
    if (n>=100) {
        cout << "Yes";
    } else {
        cout << "No";
    }
    system("pause"); // Для паузы
    return 0;
}