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