var
i,k:integer;
mas: array[1..10] of shortint;
begin
writeln('Введите 10 чисел');
for i:=1 to 10 do
begin
read(mas[i]);
if mas[i]
end;
writeln('Кол-во отрицательных = ',k);
end.
1. Тип byte в pascal'е от 0 до 255 то есть там априори не может быть чисел < 0
2. я использовал знаковый byte (shortint) он от -128 до 127