1) 29
2) -1
................
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
var a:array of integer;
i,n,k:integer;
begin
write('Введите количество элементов массива: ');
readln (n);
a:=new integer[n];
write ('Массив: ');
for i:=0 to n-1 do
begin
a[i]:=random(199)-99;
if a[i] < 0 then k:=k+1;
write (a[i]:5);
end;
writeln;
write ('Количество отрицательных элементов ',k)
end.
Ответом является число 1, ведь самое маленькое кол-во человек это 1
1)а,в,б (только это могу)