Что не так? почему не работает заданная программа? program massiv; const n=100; var t: array [-100..n] of integer; k,b,a,l,h: integer; begin {ввод массива} write('введите интервал'); randomize; b: =-100; a: =100; for k: =-100 to 100 do begin {количество отрицательных элементов} for l: =-100 to n do read(t[k]); readln; h: =0; for l: =1 to n do if t[k]< 0 then inc(h); write('количество отрицательных элементов',h); end; end.
