Вводится последовательность чисел 3, -5, 1, -4, -1. В результате выполнения программы Var a: array[1 . . 5] of integer; i, n: integer; begin n:=0; for i:=1 to 5 do begin read(a[i]); if a[i]<0 then n:= n+1; end;